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NOMENCLATURE 
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coefficients for the turret shape polynomial in x-direction 

coefficients for the turret shape polynomial in the 9-direction 

extent of turret in x-direction; for |x| > t radius of fuselage is R 

the distance 2L is separation between turrets 

optical path length 

phase distortion; nondimensional 

radial distance 

fuselage radius 

weighting factor for i-th beam direction 
axial distance in cylindrical coordinates 
axial location of mirror center 

reference direction to measure angles within beam cross section 

2 



0 ‘ 



shorthand notation for 1 - M 

oo 

beam elevation angle 

nondimensional turret height; is reference length 
radial location of mirror center 

polar coordinate used to locate points or rays within the beam 
variable in cylindrical coordinates used to describe turret shape 
perturbation potential function; also, beam azimuth angle. 



I . INTRODUCTION 



A computer program is described here which obtains the optimum shape 
of a laser turret to minimuze optical distortion of a laser beam. The 
analysis and optimization procedure on which the program is based are 
described in detail in Ref. 1. 

The turret is assumed to be situated on a cylindrical fuselage, as 
shown in Figure 1. The details of the turret geometry are shown in 
Figure 2. The shape of the turret is defined by the product of two 
polynomials, so that 



r = £f(x) f (9) 



( 1 ) 



where 




.+ a. x 



k 



( 2 ) 



and 



f (9) = i + b„ e 2 +...+ b e p 



(3) 



P 



where p is the sequence of even numbers 2, 4, 6 . . 




Figure 1. Small Perturbation Laser Turret on a Cylindrical Fuselage. 
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Figure 2. Turret Geometry. 



Optional distortion is introduced into a laser beam propagating 
through the flow field surrounding the turret; see Ref. 2. For purposes 
of this analysis, the flow is assumed to be compressible and inviscid 
and is governed by the small perturbation equation 



2 



±3 



<? + 

XX 



rr 
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(4) 



The (+) sign applies to subsonic flow and the (-) sign applies to super- 
sonic flow. The solution of equation (4) is valid for small perturbation 
subsonic and supersonic flow. For transonic flow the analysis is nonlinear, 
even for small perturbations, and is not considered here. Reference 2 
discusses the formulation of the aerodynamics model for a variety of 
geometrical shapes and flow regimes. 

From the solution of the potential equation, the perturbation 
velocities, u and v, may be calculated anywhere in the flow field. From 
knowledge of the flow field the optical path length on any ray of a laser 
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beam is calculated. The laser beam is propagated through the flow field 
as shown in Figure 3. Taking the center of the beam as the reference 
ray, the difference in optical path lengths, OPL, between a specified ray 
and the ray on the beam center is calculated as 

AOPL = OPL. - OPL. (5) 

3 i 

where the subscript i corresponds to the reference ray and j corresponds 
to the particular ray being considered. The phase distortion, PD, is 
defined as AOPL/A where X is the wave length of radiation; Refs. 3 and 4 
discuss OPL and PD in more detail. 




Figure 3. Laser Beam Orientation 
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Phase distortion, PD, is calculated numerically at several radial 

and angular locations within the beam as shown in Figure 4, The sum of 
2 

(PD) over all calculation points for several beam orientations is con- 
sidered to provide a measure of the "goodness" of the turret design. 

The coefficients of the turret shape functions of equations 2 and 3 are 
then determined to minimize 



SUMPD = Z W Z Z (PD) 2 (6) 

orientations radii angles 

where is a weighting factor applied to the i-th beam orientation. The 
COPES/CONMIN optimization program (Ref. 5) is used to provide the turret 
optimization capability. 





Figure 4. Phase Distortion Calculation Within the Laser Beam. 
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Finally, the optical aberrations are calculated for each beam 
orientation in terms of Zernicke coefficients. This provides a measure 
of the turret design in terms familiar to optical design specialists; see 
Ref. 6. 

In the following sections, the program organization, data transfer 
mechanism, input data and output are described. Test cases are provided 
to help in making the program operational. Additional program details and 
a FORTRAN listing are included in the Appendices. 
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II. PROGRAM ORGANIZATION 



The basic program organization is shown in block diagram form in 
Figure 5. The COPES program is the main driver which calls the optimi- 
zation program, CONMIN, and the turret analysis program; COPES is an 
accronym for COntrol Program for Engineering Synthesis, and CONMIN is an 
accronym for CONstrained function MINimization. Both are general purpose 
programs which may be applied to a wide variety of engineering design 
problems (Ref. 7). If only the analysis of a specific turret shape is 
desired, this may be done without COPES/CONMIN by using a very simple 
main program. Alternatively, COPES/CONMIN may be used for a single 
analysis by specifying the proper value of a single control parameter in 
the input data. 




Figure 5. Program Organization. 

The combined program containing COPES, CONMIN and laser turret 

analysis is referred to by the accronym LASTOP, for LAS er Turret Optimizatio 

The entire program is written in FORTRAN IV and has been executed, 

without modification, on IBM 360/67 and CDC 7600 computers. The program 

k 

executes in approximately 50 octal words of storage on a CDC computer. 
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The program reads from unit 5 and writes on unit 6. Units 20 and 40 are 
scratch files. (These file numbers may be changed by changing two cards 
at the beginning of the COPES program.) Execution times on a CDC 7600 
computer are approximately 0.3 and 1.0 CPU seconds for subsonic and 
supersonic flow respectively for the analysis of one beam orientation. 

In a typical design optimization run, fifteen beam orientations may be 
considered. Assuming fifty candidate designs are analyzed before the 
optimum is obtained, the total CPU time is from 200 to 750 seconds. 

To execute the turret optimization program, the user must be 
familiar with the mechanism by which data are transferred between analysis 
and design programs. This is the subject of the following section. 



■ 4 * 
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HI. DATA TRANSFER 



To couple the analysis and optimization programs for automated design 
optimization, pertinent data must be transferred between programs. This 
is done by means of a single labeled common block. To execute the program, 
it is necessary for the user to know what information is transferred and 
the location in common of that information. This section defines the data 
to be transferred and identifies their location within the common block. 

The variables contained in the "GLOBAL” common block are listed below; 
the terms have the following meaning: 

LOCATION - The physical location of the variable in the common block. 

For example, the polynomial coefficient a- is in location 
2 while a ^ is in location 3. The usual design objective 
(phase distortion), SUMPD2, is in global location 169. 

TYPE - The purpose of the variable in design optimization. D = design 
variable, S = sensitivity variable, 0 - objective function and 
C = constraint function. Note that a sensitivity variable may 
be a design variable if this is meaningful. For example, the 
direction of minimum phase distortion may be found by consider- 
ing only one beam orientation and treating the azimuth angle 
(location 108) and elevation angle (location 78) as design 
variables. Similarly, objective and constraint functions are 
interchangeable. For example, the minimum turret half-length 
(location 21) may be found with an upper bound on phase distortio 
(location 169). Under special circumstances, the objective 
function may also be a design variable. For example, the 
maximum turret height (location 76) may be Spught, subject to a 
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FORTRAN - 
HATH 

DEFINITION 



constraint on maximum phase distortion (location 169) . 
Because the turret height is intended as a design variable, 
it must also be a design variable here because it only ap- 
pears on the right-hand side of equations in the program. 
The FORTRAN name of the variable used in the program. 

The mathematical symbol for the variable (used in Ref. 1). 

- Physical meaning of the variable. 
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LOCATION 


TYPE 


FORTRAN 


MATH 


DEFINITION 


1-20 


D 


ABAR(20) 


a . 

i 


Polynomial coefficients on f(x). 


21 


S 


ACL 


L 


i 

Turret half-spacing for Fourier 
analysis. 


22 


s 


AKPRIM 


k’ 


Constant in phase distortion cal- 
culations. 


23 


D,S 


AL 


l 


Turret half length divided by RFUS 


24-53 


S 


AMACHI(30) 


M 

ao 


Mach number associated with i-th 
beam orientation. 


54-73 


D 


BBAR(20) 


b. 

X 


Polynomial coefficients on f(9). 


74 


S 


DENRTO 


P/P SL 


Density of air divided by density 
of air at sea level. 


75 


s 


DENGAM 


Y 


Exponent in pressure-density re- 
lationship. 


76 


D,S 


EPS 


£ 


Turret height divided by RFUS. 


77 


s 


EPSM 


e 

m 


Mirror center height divided 
by RFUS. 


78-107 


s 


GAMMAI (30) 


Y 


Elevation angle of i-th beam 
orientation. 


108-137 


s 


PHII(30) 




Azimuth angle of i-th beam 
orientation. 


138 


s 


RFUS 


R o 


Fuselage radius (meters) . 


139-168 


c 


SL0PEX(30) 


f’(x) 


Slope of turret surface in stream- 
wise direction. 


169 


0 


SUMPD2 


Z(PD) 2 


Sum of squares of all calculated 
phase distortions. 


170 


D,S 


TDENRT 


P/P SL 


Density of air inside canopy 
divided by density of air at sea 
level. 


171 


D,S 


THMAX 


0 MAX 


Half angle of turret (degrees) . 


172 


S 


WAVEL 


X 


Wave length of radiation (meters) . 


173-202 


s 


WGHTI(30) 


w. 


Weighting factor on i-th beam 
orientation. 


203 


s 


XM 


*M 


X-coordinate of center of mirror. 
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IV. PROGRAM DATA 



The data for laser turret analysis and optimization are separated 
into two parts. First are the control program (COPES) data which control 
the analysis and design operations. These are followed by the turret 
analysis data. 

When the program is being made operational or when only analysis is 
desired, the turret analysis program may be run, stand-alone using a 
simple driver program given in the subsection on laser turret analysis. 

In this case, the COPES data are omitted, and only the turret analysis 
data are provided. 

Appendix C contains convenient data forms for both the COPES and the 
turret analysis data. The reader may want to copy these forms for use in 
preparing a problem. 
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A. COPES - A CONTROL PROGRAM FOR ENGINEERING SYNTHESES 



The COPES program is a general purpose program to aid in design 
optimization and is not limited to the specific application for which it 

j 

is used here. The user must provide an analysis program in subroutine 
form, which in this case is the analysis of a laser turret in subsonic 
and supersonic flow. The principal requirements are that the analysis 
program be coded in FORTRAN and be segmented into input, execution and 
output and that all design information be stored in a single labeled 
common block called GLOBCM. 

The COPES program provides four specific capabilities: 

1. Simple analysis - just as if COPES was not used. 

2. Optimization - minimization or maximization of one calculated 
function with limits imposed on other functions. 

3. Sensitivity analysis - the effect of changing one or more design 
variables on one or more calculated functions. 

4. Two-variable function space - analysis for all specified 
combinations of two design variables. 

COPES utilizes the general purpose optimization program CONMIN 
(Ref. 2) for optimization, and this is the capability of primary interest 
here. Data requirements for options 3 and 4 are included for completeness. 

To better understand the COPES data requirements, the following defini- 
tions are useful: 

Design Variables - Design variables are those parameters which the 
optimization program is allowed to change in order to improve the design. 
Design variables appear only on the right-hand side of an equation in the 
analysis program. COPES considers two types of design variables, independent 
and dependent. If two or more variables are always required to have the 
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same value or be in a constant ratio, one is the independent variable 
while the remaining are dependent variables. For example, if the turret 
shape polynomials are required to be the same in both the x and 9 directions, 
the coefficients a_^ may be independent variables, and the b_^ may be dependent 
variables. In this example, the total number of design variables will then 
be twice the number of independent design variables. 

Objective Function - The parameter which is to be minimized or max- 
imized during optimization is an objective function. Included are parameters 
calculated as a function of specified design variables during a sensitivity 
or two-variable function space study. Objective functions always occur on 
the left side of an equation unless the objective function is also a design 
variable. (The turret height may be maximized as an objective function if it 
is also a design variable. Id this way, the maximum height is found for 
which no constraints are violated.) An objective function may be linear or 
non-linear and implicit or explicit but must be a continuous function of 
the design variables to be meaningful. 

Constraint - Any parameter which must not exceed specified bounds for 
the design to be acceptable is a constraint. Constraint functions always 
appear on the left side of an equation. Just as for objective functions, 
constraints may be linear or non-linear and implicit or explicit but must 
be continuous functions of the design variables. 

The COPES program reads from unit 5 and writes output on unit 6. Units 
20 and 40 are used as scratch files. The scratch file numbers may be 
changed by changing two cards at the beginning of the COPES program. 

The data required to run the COPES program are now defined. All GLOBAL 
LOCATION NUMBERS refer to the location of the specified variable in the 
labeled common block, GLOBCM. The pertinent variables and their global 
locations are listed in the section entitled DATA TRANSFER. 
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The data are segmented into "blocks" for convenience. All formats 
are alphanumeric for TITLE, END, and STOP cards; F10 for real data; and 

i; 

110 for integer data. Comment cards may be inserted anywhere in the data 

* 

stack prior to the END card and are identified by a dollar sign ($) in 
Column 1. The COPES data stack must terminate with an end card containing 
the word "END" in Columns 1-3 . 

Data coding forms are provided in Appendix C. 
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COPES 



DATA BLOCK 


A 


DESCRIPTION: 


Title Card 



FORMAT AND EXAMPLE 

12 34 567 8 FORMAT 



TITLE 20A4 

LASER TURRET OPTIMIZATION 







FIELD 


CONTENTS 


1-8 

REMARKS 


Any 80 character title 



1) Program is terminated by the word 'STOP' in columns 1-4. 
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COPES 



DATA BLOCK B 



DESCRIPTION : Program Control Parameters 



) 



FORMAT AND EXAMPLE 



1. 


...2 


3 


4 


5 


6 


7 


8 


FORMAT 


NCALC. 


. NDV _ 


-JNSV. . 


. N2VAR 


IPNPUT 


IPSENS 


IP2ZAR 




7110 


2 


4 


3 


2 


0 


0 


0 







FIELD 

1 



2 

3 

4 

5 



6 



7 



NCALC: 

0 - 

1 - 
2 - 

3 - 

4 - 

NDV : 

NSV : 

N2VAR: 

IPNPUT : 
0 - 
1 - 
2 - 
IPSENS: 

IP2VAR: 



CONTENTS 

Calculation control 

Read input and stop* Data of blocks A-B ar 
required. Remaining data are optional. 

One cycle through program. Data of blocks 
A-B are required. Remaining data are optio: 
Optimization. Data of blocks A-I are requi: 
Remaining data are optional. 

Sensitivity analysis. Data of blocks A-B ai 
J-K are required. Remaining data are optioi 
Two variable function space. Data of blocks 
and L-0 are required. Remaining data are 
optional. 

Number of independent design variables in 
optimization. 

Number of variables on which sensitivity 
analysis will be performed. 

Number of objective functions in a two 
variable function space study. 

Input print control 

Print card images plus formated print of inp 
Formated print of input only. 

No print of input. 

Print control for sensitivity analysis. If 
IPSENS. GT.O detailed print will be called fo 
at each step in the sensitivity analysis. 
DEFAULT = No print. 

Print control for two variable function spac< 
study. If IP2VAR.GT. 0 detailed print will b< 
called for at each step Ceach 1C-Y combinatioi 
DEFAULT = No print. 
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REMARKS 



1) Field 1 determines program execution. 

2) Fields 2-4 identify which information will be read in subsequent 
data blocks. 
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COPES 



DATA BLOCK C Omit if NDV = 0 in Block A 
DESCRIPTION : Integer Optimization Control Parameters 

FORMAT AND EXAMPLE 



1 2 ' 3 4 5 6 7 8 FORMAT 



IPRINT 


ITMAX 


ICNDIR 


NSCAL 


ITRM 


LINOBJ 


NACMX1 


NFDG 


! 8110 


5 


0 


0 


5 


0 


0 


0 


o| 


1 



FIELD CONTENTS 



1 



2 

3 

4 



5 



6 



7 



IPRINT: 

0 - 
1 - 
2 - 

3 - 

4 - 

5 - 



ITMAX: 
ICNDIR: 
NS CAL: 



ITRM: 



LINOBJ: 



NACMX1: 



Print control used in optimization program, 

CONMIN. 

No print during optimization. 

Print initial and final optimization information. 
Print above plus function value and design 
variable values at each iteration. 

Print above plus constraint values, direction 
vector and move parameter at each iteration. 

Print above plus gradient information. 

Print above plus each proposed design vector, 
objective function and constraints during the 
one-dimensional search. 

Maximum number of optimization iterations allowed. 
DEFAULT =20. 

Conjugate direction restart parameter. 

DEFAULT = NDV+1. 

Scaling parameter. GT.O - Scale design 
variables to order of magnitude one every NSCAL 
iterations. LT.O - Scale design variables accord- 
ing to scaling values input. 

DEFAULT = No scaling. 

Number of subsequent iterations which must satisfy 
relative or absolute convergence criterion before 
optimization process is terminated. 

DEFAULT = 3. 

Linear objective function identifier. If the 
optimization objective is known to be a linear 
function of the design variables, set LINOBJ =1. 
DEFAULT = Non-Linear.. 

One plus the maximum number of active constraints 
ant icipated . 

DEFAULT = NDV+2. 
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FIELD CONTENTS 



8 


NFDG: Finite difference gradient identifier. 

0 - All gradient information is computed by finite 

differ ence. 

1 - Gradient of objective is computed analytically. 

Gradients of constraints are computed by finite 
difference. 

2 - All gradient information is computed analytically 


REMARKS 





1) For LASER TURRET OPTIMIZATION, the value of LINOBJ and NFDG should 

always be zero. The value of NSCAL = 5 is suggested and ITRM = NACMXl = 0 
should be used. The value of IPRINT may be reduced when the user is 
familiar with the optimization output. 
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COPES 



DATA BLOCK D Omit if NDV = 0 in Block A 

DESCRIPTION : Floating Point Optimization Program Parameters 



FORMAT AND EXAMPLE 



1234 5678 FORMAT 



FDCH 


FDCHM 


CT 


CTMIN 


CTL 


CTLMIN 


THETA 


PHI 


| 8F10 


-0.0 


. 0.0 


0.0 


0.0 


0.0 


.. .0.0 


0,0 


0.0 I 


1 


DELFUN 


DABFUN 












! 


| 2F10 


0.0 


0.0 















L_ 



Note ; Two cards of data are read here. 
FIELD CONTENTS 



1 

2 

3 

4 

5 

6 

7 

8 
1 
2 



FDCH: Relative change in design variables in calculating 

finite difference gradients. 

DEFAULT =0.01. 

FDCHM: Minimum absolute step in finite difference gradient 

calculations. 

DEFAULT = 0.001. 

CT: Constraint thickness parameter. 

DEFAULT = -0.05. 

CTMIN: Minimum absolute value of CT considered in the 
optimization process. 

DEFAULT = 0.004. 

CTL: Constraint thickness parameter for linear and side 

constraints. 

DEFAULT = -0.01. 

CTLMIN: Minimum absolute value of CTL considered in the 

optimization process. 

DEFAULT = 0.001. 

THETA; Mean value of push-off factor in the method of feasibli 
directions. 

DEFAULT = 1.0. 

PHI: Participation coefficient, used if one or more con- 

straints are violated. 

DEFAULT = 5.0. 

DELFUN: Minimum relative change in objective function to 

indicate convergence of optimization process. 

DEFAULT = 0.001. 

DABFUN: Minimum absolute change in objective function to in- 

cate convergence of the optimization process. 

DEFAULT = 0.001 times the initial obj ective value. 
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REMARKS 



1) For LASER TURRET OPTIMIZATION default values of these parameters usually 
work well. 
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COPES 



DATA BLOCK E Omit if NDV = 0 in Block A 

i| 

DESCRIPTION : Total Number of Design Variables, Design Objective 

Identification and Sign on Design Objective. 



FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


'8 


FORMAT 


NDVTOT 


IOBJ 


J SGNOBJ 










02110, FJO 


0 


163 


1 -1.0 










f 



FIELD CONTENTS 



1 



2 

3 



NDVTOT: Total number of variables linked to the 

design variables. NDVTOT must be greater 
than or equal to NDV. This option allows 
two or more parameters to be assigned to a 
single design variable. The value of each 
parameter is the value of the design variable 
times a multiplier which may be different for 
each parameter. 

DEFAULT = NDV. 

IOBJ: Global variable number associated with objective 

function in optimization. 



SGNOPT: Sign used on objective of optimization to identify 

whether function is to be maximized or minimized. 
+1.0 indicates maximization. -1.0 indicates 
minimization. 

DEFAULT = -1.0. 



REMARKS 

1) For LASER TURRET OPTIMIZATION, the numbers used in this example are 

correct if phase distortion is to be minimized. If phase distortion * 
is to be maximized set SGNOPT = +1.0. 
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COPES 



DATA BLOCK F Omit if NDV = 0 in Block A 

DESCRIPTION ; Design variable bounds, initial values and scaling factors. 
FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


8 


FORMAT 


VLB 


VUB 


X 


SCAL 








1 4F10 


-3.0 


3.0 


0.0 


0.0 








i_ 



Note : Read one card for each of the NDV independent design variables. 

FIELD CONTENTS 



1 

2 

3 



4 



VLB: Lower bound on the design variable. 

VUB: Upper bound on the design variable. 

X: Initial value of the design variable. 

If X is non-zero, this will supercede 
the value initialized by subroutine 
ANALIZ. 

SCAL: Design variable scale factor. Not used 

if NSCAL.GE.O in Block C. 



REMARKS 

1) For LASER TURRET OPTIMIZATION, the values used in this example 
are suggested. 
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COPES 



DATA BLOCK G Omit if NDV = 0 in Block A. 
DESCRIPTION ; Design Variable Identification 

FORMAT AND EXAMPLE 



1 


2 • 


3 


A 


5 


6 


7 


8 


FORMAT 


NDSGN 


IDSGN 


AMULT 










fellO.FX) 


1 


lh 


1.0 










| 



Note: Read one card for each of the NDVTOT Design Variables. 



FIELD CONTENTS 



1 


NDSGN: 


Design variable number associated witi 
the variable. 


2 


IDSGN: 


Global variable number associated witl 
the variable. 


3 


AMULT: 


Constant multipliter on the variable. 
The value of the variable will be the 
value of the design variable, NDSGN 
times AMULT. 

DEFAULT = 1.0. 
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/ 

COPES 

DATA BLOCK H Omit if MDV = 0 in Block A 
DESCRIPTION : Number of sets of constrained parameters. 



FORMAT AND EXAMPLE 



1 2 * 


3 


A 


5 6 


7 


8 FORMAT 


NCONS ( | 






l 




1 no 


1 






1_ 




jj 



FIELD CONTENTS 

NCONS: Number of constraint sets in the optimi- 

zation problem. 

REMARKS 

1) If two or more adjacent parameters in the Global common block have the 
same limits imposed, these are part of the same constraint set. 
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COPES 



DATA BLOCK I Omit if NDV = 0 in Block A or if NCONS = 0 in Block M. 
DESCRIPTION ; Constraint Identification and Bounds. 



FORMAT AND EXAMPLE 



1 


2 


3 


4 


5 


6 


7 


8 FORMAT 


ICON 


JCON 


LCON 










i 3T10 


224 


234 


i 












BL 


SCALl 


BU 


SCAL2 








1 4F10 


-.3 


.3 


.3 


.3 








1 



Note: Read two cards for each of the NCONS constraint sets. 



FIELD 

1 

2 

3 



1 

2 

3 

4 

REMARKS 



CONTENTS 



ICON: 

ICON: 

LCON: 



BL: 

SCAL1: 
' BU: 



SCAL2 : 



First Global number corresponding to 
the constraint set. 

Last Global number corresponding to the 
constraint set. 

DEFAULT = ICON. 

Linear constraint identifier for this set 
of constrained variables. LCON = 1 indi- 
cates linear constraints. 

DEFAULT = 0 = Nonlinear constraint. 

Lower bound on the constrained variables. 
Value less than -1.0E+15 is assumed unbounded. 
Normalization factor on lower bound. 

DEFAULT « Max of ABS(BL), 0.1. 

Upper bound on the constrained variables. 
Value greater than 1.0E+15 is assumed 
unbounded. 

Normalization factor on upper bound . 

DEFAULT = Max of ABS(BU), 0.1. 



1) The normalization factors should usually be defaulted. 
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COPES 



DATA BLOCK J Omit if MSV = 0 in Block A 
DESCRIPTION : Sensitivity Objectives. 



FORMAT AND EXAMPLE 



1234 5678 FORMAT 



NSOBJ 
















110 


4 




i 














NSNI 


NSN2 


NSN3 


NSN4 








! 


! 8110 


26 


27 


4] 


42 











1 



Note: Two or more cards are read here. 



FIELD 



CONTENTS 



1 



1-8 



NSOBJ: Number of separate objective functions 

to be calculated as functions of the 
sensitivity variables. 

NSNI: Global variable number associated with 

the sensitivity objective functions. 



REMARKS 

1) More than eight sensitivity objectives are allowed. Add data cards as 
required to contain data. 
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COPES 



DATA BLOCK Omit if NSy = Q in Block A 

DESCRIPTION : Sensitivity Variables 

FORMAT AND EXAMPLE 



1234 5678 FORMAT 



ISENS 


NSENS 












1 


| 2110 


26 


4 


' 












1 


SNSI 


SNS2 


SNS3 


SNS4 


• • • 


• • • 




| 


| 8F10 


io 

• 

CM 


1.0 


3.0 


4.C 








I 


1 



Note ; Read one set of data for each of the NSV sensitivity variables. 
Note; Two or more cards are read here. 



FIELD 



CONTENTS 



1 

2 



1-8 



ISENS: Global variable number associated wit! 

the sensitivity variable. 

NSENS: Number of values of the sensitivil 

variable to be considered. 

SNSI: Values of the sensitivity variable, fc 

J = 1, NSENS. J = 1 corresponds to 
nominal value. 



REMARKS 

1) More than eight values of the sensitivity variable are allowed. Add 
data cards as required to contain data. 
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COPES 



DATA BLOCK L Omit if N2VAR = 0 in Block A 
DESCRIPTION ; Two variable function space control parameters. 



FORMAT AND EXAMPLE 



1 


2 * 


3 


4 


5 


6 


7 


8 FORMAT 


N2VX 


M2VX 


N2VY 


M2VY 








1 4110 


26 


5 


27 


5 








f 



FIELD CONTENTS 



1 


N2VX: 


Global location of X-variable in two- 
variable function space. 


2 


M2VX: 


Number of values of X-variable to be 
considered . 


3 


N2VY: 


Global location of Y-variable in two- 
variable function space. 


4 


M2VY: 


Number of values of Y-variable to be 
considered. 
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COPES 



DATA BLOCK NT Omit if N2VAR = 0 in Block A 

DESCRIPTION ; Objective Functions of Two-variable Function Space Study. 
FORMAT AND EXAMPLE 



1 


2 • 


. 3 


4 


5 6 


7 


8 FORMAT 


NZI 


NZ2 


NZ3 


NZ4 


• • • I • • • 




1 8110 


7 


4 


21 


67 


I 




9 



FIELD CONTENTS 

1-8 NZI: Global variable location corresponding 

to ITH function of X and Y in two 
variable function space. 

REMARKS 1 = 1, NZVAR, where NZVAR is read in B1 

1) More than eight objective functions are allowed. Add data cards as 
required to contain data. 
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COPES 



DATA BLOCK N Omit if N2VAR = 0 in Block A 

DESCRIPTION : Values of X-variable in Two-variable Function Space Study. 



FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


8 


FORMAT 


XI 


X2 


X3 


X4 


* * * I 


• • • 




8 8F10 


0.5 


l.C 


1.5 


2.0 


| 




j 



FIELD CONTENTS 

1-8 XI: Values of X-variable to be considered 

in two-variable function space. 

1=1, MZVX, where MZVX is read in Block L 

REMARKS 

1) More than eight X-values are allowed. Add data cards as required to 
contain data. 
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COPES 



DATA BLOCK r> Omit if N2VAR = 0 in Block A 

DESCRIPTION : Values of Y-variable in two-variable Function Space Study. 



FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


8 


FORMAT 


Yl 


Y2 


Y3 


• 


• • 


• • 




| 8F10 


0.0 


-1.0 


1.0 














field contents 

1_8 YI: Values of Y-variable to be considered 

in two-variable function space. 

1=1, MZVY, where MZVY is read in Block. 

REMARKS 

1) More than eight Y-values are allowed. Add data cards as required to 
contain data. 
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COPES 



DATA BLOCK P 

DESCRIPTION : Copes data 'END' card. 

FORMAT AND EXAMPLE 



1 


2 * 


3 


4 


5 


6 


7 


8 


FORMAT 


END 












! 1 3A1- 


END 












L . [ 



FIELD CONTENTS 

1 The word 'END' in columns 1-3. 

REMARKS 

1) This card must appear at the end of the COPES data. 

2) This ends the COPES input data. 
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R. LASER TURRET ANALYSIS 



Data for the laser turret analysis follow the COPES data. If the 
general design capability of COPES is not needed, the analysis program 
can be run by itself by using the following simple main program. 

C MAIN PROGRAM FOR STAND ALONE LASER TURRET ANALYSIS. 

C 

C - INPUT 

ICALC = 1 

CALL ANALIZ (ICALC) 

C 

C - EXECUTION AND OUTPUT. 

ICALC = 3 

CALL ANALIZ (ICALC) 

STOP 

END 

If this main progam is used, the COPES and CONMIN routines are omitted, 
and the COPES dataare not read. This provides simple analysis of a specified 
turret and allows the turret analysis program to be tested independently. 

The turret analysis program reads from unit 5 and writes the output on 
unit 6. 

The input data are segmented into blocks for convenience, just as for the 
COPES data. 

Comment cards are not allowed in the turret analysis data. 

Data coding forms are provided in Appendix C. 
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turret 



DATA BLOCK 

DESCRIPTION; Title Card. 



FORMAT AND EXAMPLE 



12 34 567 8 FORMAT 



TITLE 


20;A4 


LASER TURRET ANALYSIS 





FIELD CONTENTS 

1-8 Title ; Any 80 character title. 
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TURRET 



DATA BLOCK B 

DESCRIPTION : Aerodynamics, Optics constants 



FORMAT AND EXAMPLE 



1 


2 * 


3 


4 


5 


6 


7 


8 


FORMAT 


AMACH 


DENRTO 


TDENRT 


DENGAM 


AKPRIM | 


WAVEL 




i 6F10 


1.25 


.25 


.25 


1.405 


.00023J 


3.4-6 




9 



FIELD 



1 

2 

3 

4 



5 

6 

REMARKS 



CONTENTS 



AMACH: Freestream Mach number. 

DENRTO: Freestream air density/sea level densi^l 



TDENRT: Air density inside turret/sea level 
density 

DENGAM: Exponent in pressure-density relation si: 



2 . , <£)' 

P„ ». 



0 ^ 0 

AKPRIM: Phase distortion constant, k f 



WAVEL: Wave length of radiation, X (meters) 



1) AMACH is the freestream MACH number for all beam orientations unless 
specified otherwise in data Block N. 

' 
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TURRET 



DATA BLOCK r 

DESCRIPTION : Turret Geometry 



FORMAT AND EXAMPLE 



1 


2 * 


3 


4 


5 


6 


7 


8 


FORMAT 


RFUS 


AL 


THMAX 


ACL 


EPS 






1 5F10 


2.5 


2.0 


60. 


10. 


0.3 










FIELD 

1 

2 

3 

4 



5 



CONTENTS 

RFUS: Fuselage Radius (meters) 

AL: Turret half length divided by RFUS. 

THMAX: Half angle subtended by turret (deg.) 

ACL: Half spacing between turrets divided 

by RFUS, for Fourier Series calculations. 

EPS: Turret height divided by RFUS at 

x = r = 0. 



REMARKS 

1) ACL must be much larger for supersonic flow then for subsonic flow 

to avoid interference between turrets. ACL = 5. is adequate for subsonic 
flow calculations. 
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TURRET 



DATA BLOCK P 

DESCRIPTION : Turret Geometry 



FORMAT AND EXAMPLE 



1 


2 ' 


3 


4 


5 6 


7 


8 FORMAT 


MAXK 


MAXP 


NXBC 


NTHBC 


1 






6 


6 


2 


1 


! 




1 



FIELD 



CONTENTS 



1 

2 

3 



4 



MAXK: Order of x-polynomial shape function. 



f(x) 



4- a^x 4- 



a . x 
maxk 



MAXP: Order of polynomial shape function 



f (9) - 1 ib 1 9 + 



b 9 
maxp 



NXBC: Number of sets of y and y' boundary 

conditions in x-direction, externally 
imposed. 



NTHBC: Number of sets of 9 and 8 1 boundary 

conditions in 0-direction, externally 
imposed. 



REMARKS 

1) The order plus one of each polynomial must be at least as great as 
the actual number of externally imposed boundary conditions. 
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TURRET 



DATA BLOCK £ 

DESCRIPTION : Polynomial coefficients in x-direction. 

FORMAT AND EXAMPLE 



1 


2 * 


3 


4 


5 


6 


7 


8 FORMAT 


1 


ABARI 


. 


— 






ABAR6 


... 1 8F10 


L 


0 . 


-.61111 


0 . 


-.18056 


0 . 


-.006944 


i 1 



FIELD CONTENTS 



1-8 ABARI’ Coefficient of x-polynomial shape 

function, c , . , . - 

f (x) =1 + a^x + ... 

maxk 
a , x 
maxk 

REMARKS 



1) The total number of coefficients equals 1 + MAXK. Additional data cards 
are used as required to contain the data. 
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TURRET 



DATA BLOCK F 

“ j: 

DESCRIPTION : Geometric boundary conditions in x-direction. 

FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


8 


FORMAT 


X 


YBC 


YPBC 










1 3F10 


- 1 . 


0 . 


0 . 










» 



Note ; NXBC cards are required. 
FIELD CONTENTS 



1 


X: 


X-location as fraction of turret half-length, AL, 
where boundary conditions is imposed. 


2 


YBC: 


Required value of f (x) at x. 


3 


YPBC: 


Required value of f 1 (x) at x. 



REMARKS 

1) The boundary condition that f(x,9) = EPS at x = 9 = 0 is automatically 
imposed. 

2) If YBC or YPBC is input greater than or equal 200., the corresponding bounda: 
condition is omitted, i.e., if YPBC = 200., no boundary condition is 
imposed on f 1 (x) . 






45 




turret 



DATA BLOCK G 

DESCRIPTION • Polynomial coefficients in 9-directions. 



FORMAT AND EXAMPLE 



1 


2 ' 


3 


4 


5 


6 


7 


8 FORMAT 


1 


BBARI 


BBAR2 








BBAR 6 


j| 8F10 


1 . 


0 . 


-.6111] 


0 . 


-.18056 


0 . 


-.006944! 9 



FIELD CONTENTS 

1_8 BBARI: Coefficient of 0 polynomial shape 

function, = 1 + 5 0 + 

b 9 maXp 
maxp 

REMARKS 

1) The total number of coefficients equals 1 + MAXP. Additional data 
cards are used as required to contain the data. 
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TURRET 



DATA BLOCK H 

DESCRIPTION : Geometric boundary conditions in 0-direction. 



FORMAT AND EXAMPLE 



1 


2 • 


3 


4 


5 


6 


7 


8 


FORMAT 


THETA 


YBC 


YPBC 










8 3F10 


1. 


0 . 


0 . 










1 



Note : NTHBC cards are required. 

FIELD CONTENTS 

1 THETA: 0-location divided by turret half angle, 

THMAX, where the boundary condition is imposed. 

2 YBC: Required value of f ( 0) at THETA. 

3 YPBC: Required value of f'(8) at THETA. 

REMARKS 

1) The boundary condition that f(x,0) = EPS at x = 0 = 0 is automatically 

imposed. 

2) If YBC or YPBC is input greater than or equal 200., the corresponding bound 
condition is omitted, i.e., if YPBC = 200., no boundary condition is 
imposed on f ' (9) . 

3) Symmetry about 9 = 0 is automatically imposed. 
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TURRET 



DATA BLOCK I 

DESCRIPTION : Mirror location. 



FOSMAT AND EXAMPLE 



1 2 ' 3 4 5 6 7 8 FORMAT 



EPSM 


. XM 














1 2F10 


1.15 


0 . 

















FIELD CONTENTS 

1 EPSM: Distance from fuselage axis to mirror center 

divided by RFUS. 

2 XM: x-coordinate of mirror center divided by RFUS 

REMARKS 

1) Mirror is along fuselage centerline, 9=0. 
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TURRET 



DATA BLOCK J 

DESCRIPTION * Number of angular and radial locations on 
beam where phase distortion is to be cal- 
culated. 

FORMAT AND EXAMPLE 



1 


2 * 


3 


A 


5 


6 


7 


8 


FORMAT 


NETAI I 


NRBI 




% 




! 


§ 2110 


8| 


2 








i 


| 



FIELD CONTENTS 

1 NETAI: Number of angular points -at which 

phase distortion is calculated. 

2 NRBI; Number of radial points at which 

phase distortion is calculated. 
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TURRET 



DATA BLOCK g 

DESCRIPTION ; Angles around beam ac which phase 
distortion is calculated. 



FORMAT AND EXAMPLE 



I 


2 ' 


3 


4 


5 


6 7 


8 FORMAT 


ETAI 


ETA2 


ETA3 


• * 


• • # 


ETA6 j . . . 


... | 8F10 


0 . 


45. 


90. 






225. . 1 


r 



FIELD CONTENTS 

1-8 ETAI: Angle at which phase distortion is 

calculated in the laser beam. 



REMARKS 

1) If more than eight angular locations are considered, use 
additional data cards to contain the data. 

2) Phase distortion is calculated at each combination of 
angular and radial locations. 
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TURRET 



DATA BLOCK _L 

DESCRIPTION ; Radial locations in beam at which phase 
distortion is calculated. 



FORMAT AND EXAMPLE 



1 


2 * 3 ' 


4 


5 


6 


7 


8 FORMAT 


RBI 


RB2 I . . . 


RB4 ' 


. . 


. * 




. . | 8F10 


0.025 


0.05 | 


0.1 








f 



FIELD CONTENTS 

1-8 RBI: Radial location in laser beam at 

which phase distortion is calculated. 



REMARKS 

1) If more than eight radial locations are considered, 
use additional data cards to contain the data. 

2) Phase distortion is calculated at each combination 
of angular and radial locations. 
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TURRET 



DATA BLOCK M 

DESCRIPTION ; Number of separate beam orientations to be analyzed. 



FORMAT AND EXAMPLE 



1 


2 ' 


3 ' 


A 


5 


6 


7 


8 


FORMAT 


NBEAM 


* 












1 110 


id 














f 



CONTENTS 

NBEAM: Number of beam orientations considered in 

the analysis. 



FIELD 

1 
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TURRET 



DATA BLOCK _N 

DESCRIPTION ; Beam orientation information. 



FORMAT AND EXAMPLE 



1 


2 * 


3 ' 


4 


5 


6 


7 


8 


FORMAT 


PHI 


GAMMA 


AMACHI | 


WGHT ’ ! 


• 






1 4F10 


30. 


45. 


i* 


l.j 








| 



Note : NBEAM cards are required. 

FIELD CONTENTS 



1 


PHI: 


Beam Azimuth angle. Measured from aircraft 
nose positive to the right. (degrees) 


2 


GAMMA: 


Beam elevation angle. Measured from the 
horizontal plane, positive upward (degrees) 


3 


AMACHI: 


Flight Mach number for this beam orientation. 
May be different then AMACH read in DATA 
Block B. DEFAULT = AMACH. 


4 


WGHT: 


Weighting factor which multiplies the phase 
distortion for this beam orientation. 

Measure of relative importance to the design 
objective. DEFAULT = 1.0. 



REMARKS 

1) If AMACHI is read as zero, it is set equal to AMACH 
read in DATA Block B. 

2) If WGHT is read as zero, it is set to 1.0. 

3) This ends the input data for laser turret 
analysis. 
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V. SAMPLE DATA 



Assume the turret shown in Figure 1 is to be analyzed or designed* 
The initial geometry of the turret, together with the aircraft flight and 
beam orientation information, is listed here* 

A. GEOMETRY 

= fuselage radius. 



Rq = 2.5 meters 
e = 0.3 
£ = 2.0 
L = 10.0 



turret height relative to R^. 

turret half-length relative to R^. 

turret half-spacing for Fourier series approx. 



9 = 60.0 degrees = turret half angle, 

max 

f(x) - 1.0 - 0.6111 lx 2 - 0.180 56x^ - 0.006944 x^ = shape function in X. 

f ( 9) - f(x) = shape function in 9 [initially the same as f(x)]. 

Boundary conditions imposed in this example are that f (x) * f*(x) - 0 at x/£ = 
+ 1.0, and f ( 9) = f*(9) = 0 at 9 / 9 max = 1.0. The boundary condition that 
f(x,9) = 0.3 = £ at x = 9 = 0 is automatically imposed by the program. 

A total of five boundary conditions is imposed on f (x) so that a^ - a^ 
are computed by the analysis program and may not be design variables* Six 
boundary conditions are imposed on f ( 9) (including symmetry requirements) so 
that only b^ may be treated as a design variable. The three design variables 
available for optimization in this example are 

Variable Global Location 

i 5 6 

*6 7 
b, 60 



Because the aerodynamic analysis is based on small perturbation theory, 
it is only valid if the slope of the turret in the x-direction is small. 
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Therefore, constraints are imposed on the design so that the turret shape 
contained in vector SLOPEX is less than 0.3 in magnitude. That is 



-0.3 <, SLOPE (I) _< 0.3 I = 1,30 

SLOPEX is stored in global locations 139 - 168 inclusive. 



B. AERODYNAMICS 

The aircraft is assumed to fly at sea level, and the turret is not 

i 

pressurized so that 

DENRTO - TDENRT = 1.0 



The aerodynamic and optical constants are 



DENGRAM = 1.405 

AKPRIM = 0.00023 

WAVEL = 3.4 x 10 

AMACH = 0.7 



infrared radiation 



nominal. Mach number 



C. MIRROR 

The mirror is situated at 

XM = 0.0 

EPSM = 1.15 



BEAM ORIENTATIONS 




Three 


orientations are 


considered as follows 


Beam 


Az imuth 
(PHI) 


Elevation 

(GAMMA) 


1 


0 . 


50. 


2 


45. 


30. 


3 


90. 


10. 



55 



For brevity only three beam orientations are considered here. 

Typically fifteen orientations are used for optimization. 

E. PHASE DISTORTION 

The phase distortion is calculated at all combinations of two radial 
and eight angular positions. 

R = o.OS, 0.10 relative to R^. 

Tl - o, 45, 90, 135, 180, 225, 270, 315 degrees 
Note that since the maximum value of R is 0.10, this is the assumed radius 
of the mirror. 

F. COPES DATA 

Based on the above requirements, the COPES data are listed here on a 
data sheet reproduced from APPENDIX C. These data are for a complete 
optimization. If only a simple analysis is desired, these data may be 
run by changing NCALC in DATA BLOCK B to 1 instead of NCALC = 2 given here. 
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COPES DATA 



DATA BLOCK A 



TITLE | 


1 FORMAT 


LASZZ 0 fT T Pi X£PrX a a/ /? 7~ Pf - a. ~7 


I 20A4 



DATA BLOCK B 



$ BLeCk 8 ~ CoprpeL. pp fi /) H £ T £ AS 


'COMMENT 


NCALC 


NDV 


NSV 


N2VAR 


IPNPUT 


IPSENS 


IP2VAR 




FORMAT 


a 


3 














8110 



DATA BLOCK C - OMIT IF NDV - 0 



S Stock <2. - Co v t-t x P _T P re ££A PPAPF/£r£AS 


COMMENT 


IPRINT 


ITMAX 


ICNDIR 


NSCAL 


ITRM 


LINOBJ 


NACMXl 


NFDG 


FORMAT 


£T 
















8110 



+ 

* 



* 



DATA BLOCK D - OMIT IF NDV =. 0 



3 SLock D - CoPPfXP P£Pt PA A P Pt £r £ A S> 


COMMENT 


FDCH 


FDCHM 


CT 


CTMIN 


CTL 


CTLMIN 


THETA 


PHI 


FORMAT 


















8F10 


DELFUN 


DAJBFUN 




FORMAT 


o. 




X 


2F10 



DATA BLOCK E - OMIT IF NDV = 0 



$ BLOdk £ - 


P/ZPxu'xiZ PPffse ZXsroATXop 


COMMENT 


NDVTOT 


10 BJ 


SGNOBJ 




FORMAT 


3 


J69 


-l‘° 




2110, FID 



DATA BLOCK F - OMIT IF NDV - 0 



$ BLack P- P£FX£P i/£AXf£8.£ fxf/xts 


COMMENT 


VLB 


VUB 


X 


SCAL 




FORMAT 


4 c»e f 


F£CX£^ 


r s-5* 






4F10 


-2‘.o 


3.0 










$ C°£ p 


Fxc.xpP' 


T /?-£ 








-3.0 












d C'FF 


Fxc.x&ju 


T &-C, 








- 2 .0 
















































































































































































• 
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COPES DATA CONT. 



DATA BLOCK G - OMIT IF NDV = 0 



$ SLffCM f - x B-sx-sh t/ # % jr/f s i £ J P&/S7-X rxc/? rxo aJ 


COGENT 


NDSGN 


IDSGN 


AMULT 




FORMAT 




AJCZ&/J 


r #-s~ 




2110, F19 


1 


6 








$ Co£A 




r a-6 




* 


z. 


7 


1,0 








txcxe 


T B-* 






3 


4*> 







































































































































































































DATA BLOCK H - OMIT IF NDV = 0 



$ SLOCK H - Co ASTAAfPTS 


COMMENT 


NCONS 




FORMAT 


1 




110 



DATA BLOCK I - OMIT IF NDV = 0 OR NCONS ■ 0 



$ Oovxtka x*jt a a; fiefs. 


COMMENT 


ICON 


JCON 


ICON 




FORMAT 


13* 


1&8 


1 




3110 


$ iTHTTfJ? Jo SHALL fafiTPA SATZpsL TtfgoPJ/ 


COMMENT 


BL 


SCAL1 


BU 


SCAL2 




FORMAT 


. -0.3 


0.3 


J 






4F10 
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COPES DATA COOT 




DATA BLOCK J -fOMIT^IF NSV ■ 0 



$ 


COMMENT 


NSOBJ 




. FORMAT 






110 


S 


COMMENT 


NSN1 


NSN2 


NSN3 


NSN4 


NSN5 


NSN6 


NSN7 


NSN8 


FORMAT 


















8110 







































DATA BLOCK K -fOMITflF NSV = 0 



s 


COMMENT 


ISENS 


NSENS 




FORMAT 








2110 


$ 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8- 


FORMAT 


















8F10 







































I 



$ 1 


COMMENT 




ISENS 


NSENS 


i 


FORMAT 










2110 ] 




S 


COM-SENT 




SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 ■ 


FORMAT 




















8F10 
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COPES DATA - CONT 



DATA BLOCK K - COOT. 



s 


COMMENT 


ISENS 


NSENS 


• 


FORMAT 








2110 


S 


COMMEOT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 • 


FORMAT 


















8F10 







































$ 


COMMENT 


ISENS 


NSENS 


. 


FORMAT 








2110 


$ 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 


FORMAT 


















8F10 







































DATA BLOCK L H OMIT J.T N2VAR - 0 



5 


COMMENT 


N2VX 


M2VX 


N2VY 


M2VY 




FORMAT 












4110 



+ 

* 



DATA dLUUs. fl -furixx/xr .uviu - v 

5 s COMMENT 


NZ1 


NZ2 


NZ3 


NZ4 


NZ5 


NZ6 


NZ7 


NZ8 


FORMAT 


















8110 






































DATA BLO< 


CK N -foi 


«r)lF N2VAR = 0 


5 ■'5=’ — COMMENT 


XI 


X2 


X3 


X4 ] 


X5 


X6 


X7 


X8 


FORMAT 


















8F10 






- 

































* 



+ 

* 



$ 


COMMENT 


Y1 


Y2 


Y3 


Y4 


Y5 


Y6 


Y7 


Y8 


FORMAT 


















8F10 







































DATA BLOCK P 



END 




FORMAT 


END 




3A1 ■ 
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SUMMARY OF COPES DATA 



LISTING OF DATA AS IT APPEARS ON PUNCHED CARDS 
COL.'* 1 10 20 30 40 50 

' '| I > 7 1 

LASER TURRET OPTIMIZATION AT M = 0.7 
$ BLOCK B - CONTROL PARAMETERS 

2 3 

$ BLOCK C ■ - CONMIN- INTEGER PARAMETERS 
5 

$ BLOCK D - CONMIN REAL PARAMETERS. USE ALL DEFAULTS. 

0. 

0. 

$ BLOCK E - MINIMIZE PHASE DISTORTION 

3 169 -1.0 

$ BLOCK F - DESIGN VARIABLE LIMITS 

$ COEFFICIENT A - 5 

-3.0 3.0 

$ COEFFICIENT A - 6 

-3.0 3.0 

$ COEFFICIENT B - 6 

-3.0 3.0 

$ BLOCK G - DESIGN VARIABLE IDENTIFICATION 
$ COEFFICIENT A - 5 

1 6 1.0 

$ COEFFICIENT A - 6 

2 7 1.0 

$ COEFFICIENT B - 6 

3 60 1.0 

$ BLOCK H - CONSTRAINTS 

I 

$ BLOCK I - CONSTRAINT ON SLOPE 
139 168 1 

$ LIMITED TO SMALL PERTURBATION THEORY 
-0.3 0.3 0.3 0.3 

$ BLOCK P - END OF COPES DATA 

END 
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G. TURRET ANALYSIS DATA 



The data required to analyze the laser turret described above are listed 
here on a data sheet reproduced from APPENDIX C. Note that the Mach number 
for each beam orientation (BLOCK N) is read as zero so that all beam orienta- 
tions will be analyzed at the nominal Mach number of 0.7. If another run is 
desired at a different Mach number, only AMACH (BLOCK B) need be changed. 

If certain beam orientations are to be analyzed at different Mach numbers, 
the appropriate value should be read in BLOCK N. ' 
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LASER TURRET ANALYSIS DATA 



DATA BLOCK A 



TITLE 


FORMAT 


fVgSo/JXC. rfT sP/9- 


20A4 



DATA BLOCK B 



AMACH 


DENRTO 


TDENRT 


DENGAM 


AKPRIM 


HAVEL 


8 FORMAT 


0* 7 


/, a 




/.4 a S' 


, 000 z 3 


3.4 -6 


1 6F10 



DATA BLOCK C 



RFUS 


AL 


THMAX 


ACL 


EPS 




FORMAT 




*Z . 0 






0.3 




5F10 



DATA BLOCK D 



maxk 


MAX? 


NXBC 


NTHBC 




FORMAT 


6 


6 


2 . 


1 




4110 



DATA BLOCK E 



ABARO 


ABAR1 


ABAR2 


A3AR3 


ABAR4 


ABAR5 


ABAR 6 


ABAR7 j 


FORMAT 


1-0 


0 . 


61111 


< 2 . 


-aJfoS‘6 


0. 


* 0 , 0 06 *?^ 




8F10 





















DATA BLOCK F 



X 


YBC 


YPBC 




FORMAT 










3F10 


. 1-0 



















































DATA BLOCK G 



BBARO 


B3AR 1 


BBAR2 


BBAR3 


BBAR4 1 


B3AR5 


BBAR 6 


BBAR7 j 


FORMAT 


& o 




-0. 61111 


0, 






~0>. o?g‘}44 




8F10 





















DATA BLOCK H 



THETA 


YBC 


YPBC 




FORMAT 


Z.0 


04 


0. 




3F10 
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LASER TURRET ANALYSIS DATA - CONT 



DATA BLOCK I 



f EPSM 


XM 




FORMAT 


l 1.1S 






2F10 



DATA BLOCK J 



NETAI 


NRBI 




FORMAT 


S 


2 




2110 



DATA BLOCK K 



ETA1 


ETA2 


ETA3 


ETA4 


ETA3 


ETA6 


ETA 7 


ETA8 


FORMAT 


0. 




70. 


13 S. 


/&*. 


2.Z5". 


Z7*. 


SIS’. 


8FlO " 





















DATA BLOCK L 



RBI 


RB2 


RB3 | R34 


RB5 


RS6 


RB7 


RB8 


FORMAT 


<? r £>T 




1 










8F10 



DATA BLOCK M 



NSEAM 




FORMAT 


3 




110 



DATA BLOCK N 



PHI 


GAMMA 


AMACHI 


A'GHT 




FORMAT 












4F10 


4G 


3o . 










70. 


Lo. 


























































































































































- 
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SUMMARY OF TURRET ANALYSIS DATA 



COL.-** 


LISTING 


OF DATA AS 


IT APPEARS 


ON PUNCHED CARDS 


50 


i' 

1 : 

60 ........ 


I 


10 


20 30 


40 


BLOCK 




* 


I 


1 


1 


1 


1 


A 


SUBSONIC 


LASER TURRET AT SEA 


LEVEL 








B 


0.7 


1.0 


1.0 


1.405 


0.00023 




3.4-6 ' ' 


c 


2.5 


2.0 


60.0 


10.0 


0.3 




- 


D 




6 


6 


2 


1 






E 


1.0 


0 . 


-.61111 


0 . 


-.18056 


0 . 


-.006944 


F 


-1.0 


0 . 


0 . 










F 


1.0 


0 . 


0 . 


1 








G 


1.0 


0 . 


-.61111 


0 . 


-.18056 


0 . 


-.006944 


H 


1.0 


0 . 


0 . 










I 


1.15 


0 . 












J 




8 


2 










K 


0 . 


45. 


90. 


135. 


180. 


225. 


270. 














(end of 


card) 315. 


L 


0.05 


0.1 












M 




3 












N 


0 . 


50. 












N 


45. 


30. 












N 


90. 


10. 












A 


STOP-<— 


(New COPES 


Data Title 


Card To 


Terminate 


Program After 



This Run) 
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u u u u u 



VI. SAMPLE OUTPUT 



CCCCCCC 



CCCCCCC 



ENG 



ooooooo 

0 0 

0 0 

0 0 

o 0 

o o 

ooooooo 



ppppppp 

p p 

p p 

ppppppp 

p 

p 

p 



eeeeeee 

E 

E 

eeee 

E 

E 

eeeeeee 



sssssss 

3 

3 

sssssss 



sssssss 



NASA - AMES 
CONTROL PROGRAM 
FOR 

INEERInG STNThESIS 



title 

LASER TURRET OPTIMIZATION AT M a q # 7 



CO CO 



CARO IMAGES OF CONTROL DATA 



CARO IMAGE 



1) laser turret optimization at m = 0.7 

2) S BLOCK 8 - CONTROL PARAMETERS 

3) 2 3 

а) S BLOCK C - COnmIN INTEGER PARAMETERS 

5) 5 

б) $ 8L0CK 0 - COnmIN REAL PARAMETERS. USE ALL DEFAULTS. 

7) 0. 

8 ) 0 . 

9) S SLOCK E - MImjmIZE PHASE DISTORTION 

10 ) 3 169 - 1.0 

11) S 8L0CK F - DESIG N VARIABLE LIMITS 

12) s coefficient * - 5 

13) -3.0 3.0 

1 a ) S COEFFICIENT i . 6 

15) -3.0 3.0 

16) S COEFFICIENT r . 6 

17) -3.0 3.0 

18) S BLOCK G - DESIGN VARIABLE IDENTIFICATION 

19) S COEFFICIENT 4 . 5 

20 ) 1 6 1.0 

21) S COEFFICIENT i . 6 

22) 2 7 1.0 

23) S COEFFICIENT 8-6 

29) 3 60 1.0 

25) S 8L0CK H . CONSTRAINTS 

26) 1 

27) S BLOCK I . CONSTRAINT On SLOPE 

28) 139 168 1 

29) S LIMITED TO Small PERTUR8 A T ION THEORV 

30) -0.3 0.3 0,3 0,3 

31) * BLOCK P . ENn OF COPES DATA 

32) ENO 
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card images of control data 



CARD IMAGE 



1) laser turret optimization at m = 0.7 

2) $ BLOCK B - CONTROL PARAMETERS 

3) 2 3 

а) S BLOCK C - COnmiN integer PARAMETERS 

5) 5 

б) J BLOCK D - COnmIN real PARAMETERS, USE ALL OEFAULTS. 

7) 0. 

S) 0. 

9) S BLOCK E - MInjmIZE PHASE DISTORTION 

10) 3 169 -1.0 

11) S BLOCK F . OESIGN VARIABLE LIMITS 

t2) s coefficient * - 5 

13) -3.0 3.0 

10) $ coefficient i . 6 

15) -3.0 3.0 

16) I COEFFICIENT B - 6 

1 7 ) -3.0 3.0 

IB) S BLOCK G - OESIGN VARIABLE IDENTIFICATION 

19) S COEFFICIENT 4 . 5 

20) t 6 1.0 

21) S COEFFICIENT i . 6 

22) 2 7 1.0 

23) S COEFFICIENT 8-6 

20) 3 60 1.0 

25) S BLOCK H . CONSTRAINTS 

26 ) 1 

27) I BLOCK I - CONSTRAINT ON SLOPE 

28) 139 168 1 

29) S LIMITEO TO SnalL PERTURBATION THEORY 

30) -0.3 0.3 0.3 0.3 

31) S BLOCK P . EN n OF COPES DATA 

32) END 
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TITLE: 

LASER TURRET OPTIMIZATION AT M a o, 



control parameters; 

CALCULATION CONTROL# 



TwO-SPACE print CODE, 
debug print cooe. 





NCALC 


3 


2 


gn variables# 


NOV 


3 


3 


' V ARI AflLES 9 


NS V 


3 


-0 


n two-space# 


N2VAR 


3 


-0 


nt code# 


IPNPUT 


3 


• 0 


>E' 


I PSgNS 


3 


-0 




IP2VAR 


3 


-0 




IPOBG 


a 


-0 



CALCULATION control, nC*LC 
VALUE MEANING 

1 SINGLE ANALYSIS 

2 OPTIMIZATION 

3 SENSITIVITY 

U TWO-VARIABLE function space 

GLOBAL variable NUM8FR of OBJECTIVE 
MULTIPLIER (NEGATIVE INDICATES MINIMIZATION) 



169 

-.1000E+01 



conmin parameters (if zero# conmin default will over-ridej 



IPRINT 


ITMAX ICNDtR 


NSC AL ITRM 


LINO0J 


NACMX1 NFDG 


5 


-0 -0 


-0 -0 


-0 


5 -0 


FDCH 


FDChm 


CT 




CTmIN 


0. 


• 0 , 


-0 • 




•0, 


CTL 


CTLmiN 


theta 




PHI 


•0 • 


• 0, 


• 0 • 




• 0 t 


OELFUN 


DABruN 








0. 


-0 • 








design 


variable inFOoma 


TiON 






NON-ZERO INITIAL value 


WILL OVER-RIDE 


MODULE INPUT 


D. v. 


lower 


UPPER 


INITIAL 




NO. 


souno 


BOUND 


value 


SCALE 


1 


-.30000E+01 


.30000E+01 


0. 


-0. 


2 


-,3O00OEf01 


, 30000E + 0 1 


0. 


-o. 


3 


• , 30000E+0 1 


, 30000E + 0 1 


0. 


-0, 


DESIGN 


variables 








D 


. v. GLOBal 


MULTIPLYING 






ID 


NO. VAR. NO. 


factor 






1 


1 6 


.10000E+01 






2 


2 7 


• 1 OOOOE + O 1 






3 


3 60 


. 1 OOOOE+O 1 







CONSTRAINT INFORMATION 
THERE APE 1 CONSTRAINT SETS 
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GLOBAL 


GLOBAL l 


INEAR 


LONER 


NORMALIZATION 


UPPER 


normalization 


lO 


VAR. 1 


VAR. 2 


1° 


bound 


FACTOR 


SOUND 


factor 


1 


139 


168 


t 


-,30000E*Q0 


, 30000E + 00 


, 3G000E+00 


,30000£t00 


total 


NUMBER 


OF constra 


INED 


parameters s 


30 







data storage requirements 



REAL 

INPUT EXECUTION AVAILABLE 
144 407 5000 



INTEGER 

INPUT EXECUTION AVAILABLE 
103 118 1000 
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TURRET ANALYSIS INPUT 
TITLE 

SUBSONIC L*SeR TURRET AT S£A LEVEL 



AERO-OPTICS 

MACH NUM0ER, AMACH 

EXTERNAL DENSITY RATtoN, DENRTO 

INTERNAL DENSITY RATfo, TDENRT 

PRESSURE-DENSITY exponent, dengam 

PHASE DISTORTION CONSTANT, akprim 

wavelength, ravel 



= .700 
= 1.000 
s 1.000 
3 I.4O5 

r .2300E-03 
b , 3400£-05 



GEOMETRY 

FUSELAGE RADIUS, RpUs 
TURRET HALF-LENGTH, 

TURRET HALF-ANGLE, T H m 4 X 
TURRET HEIGHT FACTOR. e p S 
TURRET HA L F-SPACInG, ACL 



= 2,500 
s 2.000 
3 60.000 
= .3 00 
= 10.000 



OEGREES 



TURRET POLYNOMIAL SH*p£ COEFICIEnTS 
X-OIRECTION, OROfR = 6 

COEFICIENTS 

,100006*01 0. -.61111E+00 0. 

0. -.69440E-02 

BOUNDARY CONOITIONS 
X/L Y Y-PRIM f 

0.000 . 500 200. Ooo 

-1.000 -0.000 -0.060 

1,000 -0.000 — O.OoO 



THETA-0 I RECTi ON, ORDfr = 6 

COEFICIENTS 

, 1 OOOOE+0 1 0. -.61 1 1 1£* 00 0. 

0. -.6944OE-02 

BOUNOARY CONDITIONS 
THETA/THMAX Y Y-pRTME 

0.000 .300 200.000 

1,000 -0.000 .0.000 



LOCATION OF CENTER Op MIRROR 
XM s -0,000 EPsM » 1.150 



PHASE DISTORTION CALCULATION POINTS 
ANGLES 

0.000 95.000 90.000 135.000 180.000 

225.000 270.000 3lS,000 

RADII 

,050 .100 



BEAM ORIENTATIONS 



-, 10O56£+OO 



*, 18056£*00 
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BEAM 


PHI 


gamma 


MACH 


HEIGHT 




1 


0.00 


50.00 


.700 


1.000 




2 


#5,00 


30.00 


.700 


1.000 




3 


# 0.00 


10.00 


.700 


1,000 





PHASE DISTORTION CALCULATIONS 








BEAM ORIENTATION NUMreR j 1 








AZHUTh angle 




s 0 


.00 DEGREES 






ELEVATION angle 


s 50 


.00 DEGREES 






MACH NUMBER 




s 


.70 






R 


ETA 


X 


y 


A 


N 


0 . 


0.00 


0 , 


0 . 


.19206+00 


0 . 


.5000E-01 


0.00 


0 . 


. 5000 E -01 


.15236+00 


, 75#6E ♦ 


, 50006-0 1 


#5.00 


.3536E-01 


.35366-01 


. 162#E+00 


, 5a 77E ♦ 


.soooe-oi 


90.00 


. 5 OOOE-OI 


•6675E-09 


. 18986+00 


.1850E- 


.5000E-01 


135.00 


,3S36£-01 


-.35366-01 


.2 1 7UE + 00 


-.53516+ 


.5000E-01 


iao .00 


.133s£-0 8 


-. 5 OOOE-OI 


.2291E+00 


-.77U5E+ 


.5000E-01 


225.00 


m p 3536E-0 1 


-.35366-01 


.21 7UE+00 


-.53516+ 


.5000E-01 


270.00 


-*5000E-01 


-.2002E-08 


.1898E+00 


.1850E- 


.5000E-01 


315,00 


..3 5 36E-01 


.35366-01 


.U29E + 00 


« 5u 77E + 


. 1 OOOE + OO 


0.00 


0 , 


. 10006+00 


, 11 0 #E +00 


. 1 a 6 1 E ♦ 


,10006+00 


85.00 


# 70 7 1 E-Q 1 


.7071E-01 


. 1 3076+00 


. 1089E + 


, 1 OOOE +0 0 


# 0.00 


. 1000&+Q0 


.1335E-08 


, 1 82#6 + 0 0 


,7#26E- 


.10006+00 


U 5 .OO 


.7071E-01 


-.7071E-01 


.23966+00 


-.1070E+ 


, 10006+00 


180.00 


^ 26706*0 8 


-. 10006+00 


.26456+00 


-.15816+ 


. 1000 E + 00 


225.00 


-.70716-01 


-.7071E-01 


.23966+00 


-. 1070E+ 


. 1 0006+00 


270.00 


1 0 U 0 E *00 


-.#0056-08 


.182#E+00 


,7#266- 


. loooe+oo 


315.00 


-.7071E-01 


.7071E-01 


, 1 3076+00 


. 10896+ 



ZERNICKE COEFFICIENTS/ 



AVERAGE S 
TILT 9 X 3 
FOCUS s 

ASTIG s • 

c qmA X - 


. 1 0883E*o2 
• 128SUE + 00 
. 3O067E-O3 

.203786-02 .122776 

.13262E-03 *.21«63e 


T s -.IO 536 E 
. 0 # 

-06 -,#8326f 


-02 

-03 .2533 l£-02 


PHASE DISTORTION CALCULATIONS 

SEAM ORIENTATION NUMr E r = 2 

AZHUTH ANGLE 3 #5 

ELEVATION angle s 30 

MACH NUMBER 3 

R ETA X 


.00 D 6 GR 66 S 
.00 D 6 GR 66 S 
.70 

Y 


A 


N 


0 . 


0.00 0 . 


0. 


.2532E+00 


0. 


.5000E-01 


0.00 0 , 


.5000E-01 


. 19«3E+00 


, 78 72E ♦ 


,50006-01 


#5.00 ,35366-01 


,35366-01 


,21666+00 


.23686+ 


.5000E-01 


#0,00 .5000E-01 


.66756-0# 


.2601E+00 


•»# 6 # 66 + 


.50006-01 


135.00 ,35366-01 


-.35366-01 


.2977E+00 


-.89066+ 


. 50006-01 


180.00 .1335E-08 


-.5000E-0 1 


.3O62E+0O 


-.75526+ 


.5000E-0 1 


225.00 .,35366-01 


-.35366-01 


.2833E+00 


-. 18826 + 


, 50006-01 


270.00 ..5000E-01 


-.2002E-08 


,2a3«E+00 


•U563E+ 


.50006-01 


315.00 . . 3536E-0 1 


■ 3536E-0 1 


.2073E+00 


, 8 a 22 E+ 


. 10006+00 


0.00 o. 


. 10006+00 


.11816+00 


. 18006 + 



• & 



00 

00 

ot 

00 

00 

00 

01 

00 

01 

01 

01 

01 

01 

01 

01 

01 

00 

00 

00 

00 

00 

00 

00 

00 

01 
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. lOOOE+OO 


95.00 


,7o71E-01 


.7071E-01 


». 1668E+00 


• 6386E+0Q 


.lOOOE+OO 


90.00 


. 1000E+00 


. 1 335E-08 


,26408+00 




, loooE+oo 


135,00 


,7o7lE-01 


-.7071E-01 


.391 1E+00 


•* l 82 1 EtO 1 


. 1000E+00 


180. 00 


.2670E-08 


- . 1 OOOE + 0 0 


•3597E+00 


• f laSbE+O 1 


.1000E+00 


225,00 


..7071E-01 


-.7071E-0 1 


.3077E+00 


• , 3232E 1 0 0 


.lOOOE+OO 


270.00 


.. lOOOE+OO 


• . i|005E*>0 8 


. 2309E+00 


•89606+00 


.1000E+00 


315.00 


-.7071E-01 


• 7071 E-0 1 


. 1S30E+00 


9 l 7596+0 1 



ZeRNIcke COEFFICIENT*/ 



AVERAGE = 
TILT, X = 
FOCUS s 
A$TIG = 
COMA 5 



.O9776E-02 

,13398Etno 

.37912E-0? 

.26635E-02 

•85 oS 8 E*o 3 



Y * -,78917e-01 



,58 7 05E-0 2 
.77995E-Q9 



.32R78E-02 .278Q8E-02 



PHASE DISTORTION CALCULATIONS 
BEAM ORIENTATION NUM r£ r s 3 



AZMUTH ANGLE 




s 90 


.00 degrees 






ELEVATION angle 


» 10 


.00 DEGREES 






MACH NUMBER 




s 


.70 






R 


ETA 


X 


Y 


A 


N 


0. 


0.00 


0. 


0* 


•3990E+00 


0. 


, 500 OE-O 1 


0.00 


0. 


.5000E-01 


,27 08E+00 


, 7 1 85E + 0 0 


.5000E-01 


45.00 


.3536E-01 


• 3536E-0 1 


.2928E+00 


•4686E+00 


.5000E-01 


R0.00 


# 5oOOE-01 


,66758-oR 


,39398+00 


-. 1819E-01 


.5000E-01 


135.00 


. 3* 3t)E *0 1 


• »3s36E'”0 1 


.3901E+00 


- . 26 1 2E + 0 0 


.5000E-0 1 


180.00 


.1335E-08 


-.SOOOE-Ol 


. 9O66E+0O 


-.9199E+00 


.5000E-0 1 


225.00 


..3536E-01 


-.35368-01 


.3901E+00 


— .2612E+00 


.5000E-01 


270.00 


-.5000E-01 


-.2002E-08 


.3939E+00 


-.1819E-01 


.5000E-01 


315.00 


- 3536E-0 1 


,35368-01 


.2R28E+00 


.9686E+00 


. lOOOE+OO 


0.00 


0. 


, lOOOE + OO 


.1783E+00 


. 1 6R2E+ 0 1 


.lOOOEtOO 


95.00 


. 7o7 lE-0 1 


.7071E-01 


,2361 E«00 


.98188+00 


, lOOOEtOO 


90.00 


.lOOOEtOO 


. 1335E-08 


• 3a 1 3e+ 00 


-.9792E-01 


, loooE+oo 


135.00 


„7o7lt-01 


-.7071E-01 


.9249E.00 


-.66178+00 


, lOOOE+OO 


180.00 


.2 &7 0E-O8 


-. 1000E+00 


.4519E+00 


-.873«,E + 00 


. 1 oooE+oo 


225.00 


, < 7o7lE-01 


-.7071E-01 


.9299E+00 


..6617E+00 


, 1 00 OE +0 0 


270.00 


.. lOOOE+OO 


-.4OO5E-O8 


,3al3E+00 


-.9792E-01 


, 1 OOOE+OO 


315.00 


..7071E-01 


,70718-01 


, 236 1 E+00 


.9818E+00 



ZERNICKE COEFFICIENT.*/ 
AVERAGE s , 1 9 1S5E-0 1 



TILT, X s 
FOCUS * 
ASTIG s 
COMA s 



.99613E-01 

,62398E-n2 

, 8 1 8u9E”g2 
,303l7E-n2 



Y * -.79729E-03 



-.72295E-09 

.10055E-09 



.29599E-02 .17965E-02 



FLOW FIELD FOR THETA 3 o.OOO DEGREES 
MACH NUMBER s .700 
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X 


R 


PHI 


U 


. V 


CP 


-.4000E+01 


• 1 OOOE ♦ o 1 


-.07576-02 


-.75156-02 


,18786-02 


.15036-01 


-.360 06 + 01 


. 1 OOOEto 1 


-.7151E-02 


-, 33866-02 


.62756-02 


,67336-02 


-,32006+01 


.lOOOEfoj 


-.71466-02 


.21906-02 


.79486-03 


-.03896-02 


-.28006+01 


• 1 OOOE+o 1 


72756-02 


-. 66346-02 


-.11 OoE-O 1 


.13756-01 


-.20006+01 


• 1GOOE*oi 


-.16016-01 


-.00236-01 


-.60056-02 


.80526-01 


-.2000E+01 


• 1 OOOEto 1 


-, 00626-01 


-.82836-0 1 


.3960E-01 


.16016+00 


-, 16006+01 


• 1028E+01 


-.75126-01 


-.90616-01 


. 1 1 696+00 


, 1675E + 00 


-.12006+01 


.1 103E*ot 


-.91416-01 


-.37566-01 


• 1 5936 + 00 


. O976E-0 1 


-. 8000E + 0 0 


• U97E + 01 


-.77106-01 


.37036-01 


,13706+00 


• , 92836-0 1 


-.00006+00 


.1272E+01 


-.42356-01 


, 90306-01 


.75106-01 


-.18626+00 


,a97o6-l3 


• 1 3O OE + o 1 


.53916-14 


. 108o6 + 00 


-.R533E-10 


-.21 686+00 


,00006+00 


# 1272E>o! 


.42356-01 


.9030E-01 


-.75106-01 


-.18626+00 


,80006+00 


.U97E>ft! 


.77106-01 


.37036-01 


-.13706+00 


-.92836-01 


,12006+01 


. 11 05E>n 1 


.91016.01 


-,375oE-01 


-.15936+00 


.09766-01 


.16006+01 


. 1 028E*n 1 


.75126-01 


-.90616-01 


-. 1 1696 + 00 


.16756+00 


,20006+01 


. 1 OOOE > n 1 


.40926-01 


-.82836-01 


-.39606-01 


,16016+00 


.2a00£ + o 1 


• 1 QOOE+n 1 


.16016-01 


-.40286-01 


.60056-02 


,80s26-01 


,28006+01 


. 1 0 OOE + 0 1 


.72756-02 


-.69306-02 


.11046-01 


.13756-01 


, 3200E + 0 1 


• 1 OOOE *0 1 


.71066-02 


.2194E-02 


-.79486-03 


-.43896-02 


.36006+01 


# 1 OOOE^f) 1 


.71516-02 


-.33866-02 


-.62756-02 


.67336-02 


,a0006+0 1 


• lOOOE^ni 


.07576-02 


-.75156-02 


-.18786-02 


.1503E-01 


CRITICAL PRESSURE CUFFF IC IEnT ON : 


SURFACE = 


01.76395 





surface definition (ePS = .300) 

POLYNOMIAL COEFICIEN^s (A(I), I=0,MaXK) 


IN 


X. DIRECTION 


,100006+01 


0. 


-.611106+00 0. 




. 1 1805E+00 


0, 


-.694006-02 








POLYNOMIAL CoEFjCiENts (8(1), I -0 , MAXP ) 


IN 


THETA-D1R6CT1ON 


.10000E+01 


0. 


-.183216+01 0. 




.806776+00 


0. 


-,69OO0f.o2 








COORDINATES 










X 


z 


z-prime 






•2,200 


0.0000 


0.0000 






-2.000 


,0000 


0.0000 






-1,800 


.0069 


.0700 






•1 ,600 


.0278 


.1375 






-1,400 


.0610 


.1918 






•1.200 


.1032 


.2263 






-1 , 000 


.1500 


.2375 






-.800 


.1966 


.2249 






-.600 


.2385 


. 1900 






-.400 


,2716 


.1377 






-.200 


.2 927 


.0722 






,000 


.3000 


-.0000 






.200 


.2927 


-.0722 






.000 


.2716 


-.1377 






,600 


.2385 


-.1900 






.800 


.1966 


-,22«9 






1,000 


.1500 


-.2375 






1,200 


.1032 


-.2263 






t.ooo 


.0610 


-.1918 






1,600 


.0278 


-.1375 






1,800 


.0069 


-.0700 






2.000 


.0000 


0.0000 
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I 



I 



2.200 


0.0000 


0,0000 


% 


THETA 


RAOIANS 


DEGREES 


z 


z-primf 


- 1.152 


• 66 .0000 


0.0000 


0*0000 


- 1.007 


- 60.0000 


.0000 


-,0000 


-.903 


- 54.0000 


.0107 


.1947 


-.838 


- 48.0000 


.0387 


• 3286 


-.733 


- 42.0000 


.0777 


.4082 


-.628 


- 36 .0000 


.1225 


.4399 


-.520 


- 30.0000 


.1686 


.4302 


-.016 


- 24.0000 


.2116 


• 3859 


-.310 


- 18.0000 


.2 662 


. 313 * 


-.206 


- 12.0000 


.2766 


• 2209 


-.105 


- 6.0000 


.2660 


• 1139 


.000 


.0000 


.3000 


-.0000 


.105 


6,0000 


.2660 


-•1139 


.206 


12.0000 


.2766 


-•2209 


.316 


18,0000 


.2682 


-.3139 


.016 


26.0000 


.2116 


-.3859 


. S20 


30.0000 


.1680 


-.4302 


.628 


36.0000 


.1225 


-.4399 


.733 


62,0000 


.0777 


-.4082 


.838 


68.0000 


.0387 


-.3286 


,602 


56,0000 


, 0t07 


-, 19a7 


1,007 


60.0000 


.0000 


.0000 


1,152 


66.0000 


0.0000 


o.oooo 



SUM OF SQUARES of PH ^ DISTORTION s . 3664QF+02 
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C 0 N M IN 
FORTRAN program for 
constrained FUNCTION minimization 
NASA/AMES RESEARCH CENTER, MOFFETT FIELD* CALIF. 
VERSION II JULY, 1975 



CONSTRAINED FUNCTION minimization 



CONTROL 

IPRINT 


PARAMETERS 

NOV ITMAX NCON 


NSIoE icnoir 


NSC AL NFDC 


5 


3 


20 60 


t 


a 


• 0 • 0 


LINO0J 


ITRH 


N 1 N 2 


N3 


Na 


NS 


-0 


3 


5 66 


s 


5 


10 


CT 

IOOOOEtOO 


CTMlN 

,«OO00E-02 


•• 


CTL 

10000E-01 


CTLMIN 
, 10000E-02 


theta 

, 10000E + 01 


PHI 

.SoooOE+OT 


• 


oelfun 

iOOOOE«03 


darfun 

.3664SE-01 



FDCH 

.lOOOOE-Ol 



FOC hm 
, loonoE-ol 



(.ONER BOUnOS on DECISION VARIABLES (VLB) 

1) -.30000E + 01 ..30000E+01 -,30000E*01 

UPPER BOUnOS on DEC I s ipN VARIABLES (VUB) 

1) , JOOOOE + 0 1 .JOOOOE + Ol , 30 000£>0.1 

all constraints are Linear 



initial function information 

OBJ a .366482E+02 
DECISION VARIABLES (*. VECTOR) 



n 


0. 


..69440E-02 


-.69440E-02 








CONSTRAINT VALUES (G- 


VECTOR) 










1) 


-.10000E+01 


.. 1 OOOOEfOl 


-. 1 1598E + 0J 


•, 84021 E+00 


-.13218E+01 


•*<>78l6£t00 


7) 


-,l«725Et01 


..S27S3E+00 


• , 1 60 1 1 1*0 1 


-.39889E+00 


1 7001E+01 


• t ^999a£t00 


13) 


• , 1 7 642E + 0 1 


-.23576E+00 


-.17910E+01 


•.2O905E+O0 


-.17796E+01 


• • 22039E 1 00 
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l*) 


«. 1 7 1 1 5E tO 1 


• . 26850E too 


16495Etot 


- , 3504 7£ 1 00 


l5380Et01 


-,«6200EtOO 


25) 


l«023Et01 


..5977 1 E tOO 


12a87Et0l 


-.751 JOEtOO 


108«lEt01 


- • 9 1 586E tOO 


31) 


-.91<586Et00 


. . 1 084 1 E tO 1 


-,75l30Et00 


-,12«87Et0l 


- . 5977 1 E tOO 


14023Et01 


37) 


-,46200EtOO 


-.15380E+01 


-,35047Et00 


16«95Et01 


• . 26850E tO 0 


-,17315Et01 


a3) 


-,22039Et00 


-.l779bEt01 


-,2090SEtOO 


17910Et01 


-,23576Et00 


-.17642Et01 


49) 


• , 29994£ t 00 


1 7 00 1 £♦ 0 1 


J9889E+00 


1601 lEtOl 


-.52753Et00 


-,14725Et01 


551 


”•6781 6Et00 


».13218Et01 


• ,8a021Et00 


-.1 1 598£t0 1 


• , 1 000 OE tO 1 


-.lOOOOEtOl 



BEGIN 


ITERATION NWMBfr 


1 






O 

•H 

II 


lOOOOEtOO 


CTL = •.10000E-01 PHI s 


.SOOOOEtOl 




THERE 


ARE 0 ACTIVp 


CONSTRAINTS 






THERE 


ARE o VIOLATED CONSTRAINTS 






THERE 


ARE 0 ACT I Vp 


SIDE CONSTRAINTS 






GRAOIENT OF OBJ 

1) ,53«85et03 . 


.7oa36Et03 ,19787£t02 






SEARCH 

1) 


DIRECTION (S-VECTOR) 

• . 759JSE tOO .lOOOOEtOl -.28092E-01 




* 



ONE-OIMENSIONAI search 

initial slope s -.lillE-04 PROPOSEO ALPHA s , 329B£.02 



* • constrained one-oih fn sional search inforhaTion * * * 



PROPOSED DESIGN 
ALPHA = .32985E-02 

X-VECTOR 

•.2505e-02 -.3646£-02 -,7037 e-02 

OBJ * ,33029Et02 



CONSTRAINT VALUES 



1 OOOe 1 0 1 


lOOOftOl 


12 1 9f + 0 1 


-,7805£t00 


1407gt0l 


-,5927£t00 


• , 1 559E tO 1 


-.a«0:i 


-,167UE*01 


328 3EtOO 


l7a9E + oi 


- . 25 1 0E + 00 


- . 1 786E+0 1 


-,2144E>00 


1785Et01 


- . 21 a £♦ 


».l750Et01 


•.2$03Et00 


l683Et 0 1 


-,3l71£t00 


1589E+01 


4 1 1 3E tOO 


l«72Et01 


-.528’ 


1 337 £ tO 1 


-.6630E+00 


1 I90£t01 


-.8097Et00 


- . 1 037£t0 1 


-.9b2REtOO 


- , 883 3E tOO 


-•111: 


-.7347E+00 


-.1265Et01 . 


..5R68Et00 


1403Et01 


-,0749£ + 00 


1525E+01 


- , 37 38E tO 0 


-.162: 


-.2978EtOO 


1 702£t0 1 


-.250t,EtOO 


-.l7«9Et01 


-,23«7£t00 


17<,5Et01 


-.2521E+00 


-.war 


3034E.00 


1697E+01 


-.3881E+00 


-.1612E+01 


-,5043Et00 


1496Et01 


• , 648bE tOO 


-.135: 


8 1 6l E tOO 


1 18«£t01 


lOOOEtOl 


lOOOEtOl 











TWO-POINT interpolation 



PROPOSED DESIGN 
ALPHA s ,16«92E-0J 
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x-VECTOR 

-.1252E-01 


* 95^8£-02 


-.7407E-02 




% 








08J a 


2 0o55£*02 














CONSTRAINT VALUES 














• • 1000E + 0 1 


1OOOE+01 


1458E + 01 


-.54186+00 


- « 1 7 496 + 0 1 


-.251 1E+00 


-.1907E+01 


• . 9258E-0 1 


1964E+01 


".359bE-01 


19U5E + 01 


-.5527E-01 


-. 1871E+01 


-. 1287E+00 


-,17b2E+01 


-.2384E+00 


-. 1 b30E+0 1 


- . 3fa98E + 00 


.. 1489E+01 


-.51 156+00 


-. 1345E + 01 


-,b548E+00 


-,120bE+01 


- . 7937E+00 


-, 1 07 bE + 0 1 


-.9241E+00 


-.95b5E+00 


-.104JE+01 


-.8«90E+00 


-. 1 151E+01 


- . 753 1 E + 00 


-. I247E + 01 


-.6682E+00 


-.1 332E + 0 1 


..5930E+00 


-. 14076+0 1 


-.5263E+00 


-.14746+01 


-,4b7lE+00 


- . 1 533E + 0 1 


-.«152E+00 


-.1S8SE+01 


-.371 3E+00 


-.lb29E+01 


-.337SE+00 


-. 1 b62E + 0 1 


-.3177E+00 


-. 1 b82E + 0 1 


-.3175E+00 


-.lbBjEtOl 


-,3«5lE+00 


-. 1855E+01 


-.41 15E+00 


-.15886+01 


-,530bE+00 


-. I4b96+01 


-.71976+00 


-.1280E+01 


-, 1 OOOE + 0 1 


-. 10006+0 1 










THREE-POINT INTERPOLATION 












PROPOSED 


DESIGN 














ALPHA s 

X-VECTOR 


.18127E-01 














-.1376E-01 


. 1 1 18E-0 1 


. . 7453E-02 












OBJ s , 


19478E+02 














constraint values 














1 000£t0 1 


- . 1 OOOE + 0 1 


-,1488e+01 


-,5122e+00 


-. 1 79lg + o 1 


-.2087E+00 


-. 1951E+01 


-.4948E-01 


••2000E+0 1 


.4145E-13 


.. l9b9E+01 


- , 3 1 03E-0 1 


-.1882E+01 


-.11816+00 


-. 1759E+01 


-.2413E+00 


-.lblSE+01 


-.38 u bE+00 


-. 14 6 46+01 


-.S355E+00 


-.1315E+01 


-.b850t+00 


-.1173E+01 


- . 82bbE + 00 


-.1044E+01 


- . °5b4E + 00 


..927bE+00 


-.1072E+01 


• . 325 7E +0 0 


-.1174E+01 


• . 7 370E + 00 


-. 12b3E+01 


-.bb0°6+00 


1 3406+0 1 


-.S925E+00 


-. 1407E+01 


*.S32bE+00 


-.14676+01 


-,473b£+00 


-. 1521E + 01 


-. 4297E+00 


1 5 7oE + 0 1 


..38b3E+00 


-. 1614E+01 


-.35036+00 


- . 1 b506+0 1 


- . 3258E + 00 


-. lb74E + 01 


-.3192E+00 


1 b8 16 + 0 1 


-.3398E+00 


-.lbbOEtOl 


-.40006+00 


-.lbOOE+Ol 


-.5160E+00 


-.1484E+01 


•» 7078E + 0 0 


-.12926+01 


-. lOOOE+01 


-. 1000E+01 











* * * ENO OF ONE-OIH FNs IONAL SE*bCH 
CALCULATED alpha 3 , 18127E-01 

OBJ » .1947846+02 



DECISION 


VARIABLES (x 


-VECTOR) 










1) 


!37b5E-01 


.11183E-01 


-,74532£-02 








CONSTRAINT values (G^ 


VECTOR) 










1) 


-,100006+01 


10000E + 01 


-. l«878E + 0 1 


-.S1220E+00 


-.179136+01 


-.208736+00 


7) 


-. 19505E+01 


— . 49484E -01 


-.20000E+01 


.41448E-13 


-,l9b90E+01 


-.31029E-01 


13) 


-. 18819E + 01 


-.U81«6+00 


-, 17587E+01 


-.24133E+00 


-,lbl5 a E+01 


-.38459E+00 


1’) 


-,14b45E+01 


-.535536+00 


-. 131506+01 


- . bB 499E + 0 0 


-. 1 17346 + 01 


- , 82bbOE + 00 


25) 


-,1043bE+01 


- . 9^^406 + 00 


-.927576+00 


-.107246+01 


- . 825bbE +0 0 


-.117436+01 


31) 


-,737016+00 


- . 1 29 30E + 0 1 


-,b5999E+00 


-.134006+01 


-.59255E+00 


-.140756+01 


37) 


-,532b4£.00 


-, 1 4b 7 4E + 0 1 


• , 4 78b 4E + 00 


-.152146+01 


-.42971E+00 


-.157036+01 


43) 


- . 3ttfe2bE +00 


-. 1 6 137E+01 


-. 35028E+00 


-. lb a 97E+01 


-.325786+00 


-. lb742E+01 


49) 


-.319196+00 


-. 16808E+01 


-.339786+00 


-. 1 bb02E +0 1 


-.400006+00 


-.lbO 006+01 


55) 


-.51S97E+00 


-. 14840E + 0 1 


-.707786+00 


- . 1 2922E + 0 1 


-.100006+01 


-.100006+01 



8£CIn ITERATION nUmBfr 2 
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I 

l 

! 

CT s -.10000E+00 CTL = -.lOOOOE-Ol PHI a .50000E+01 

THERE ARE l ACTIVf CONSTRAINTS 

CONSTRAINT NUMBERS Ap E 

10 

THERE ARE 0 VlOL*TED CONSTRAINTS 

THERE ARE 0 ACTIVp SIDE CONSTRAINTS 

GRADIENT OP OBJ 

1) , 12385e+03 ..58717E + 0J ,80«UE+01 

gradients of active *no violated constraints 

CONSTRAINT NUMBER jo 

1) -, 123R2e*02 '.12633E+02 0, 



PUSH-OFF FACTORS, CTheTA(I), Ial.NAc) 

n o. 

CONSTRAINT PARAMETER, beta S ,7aq96EtOO 

SEARCH DIRECTION CS-vECTOR) 

1) .IOOOOeaOI .97698E+00 -,3«9aOE-Ol 

ONE-OIMENSIONAL search 

INITIAL SLOPE = -.“SOlE+03 PROPOSeO ALPHA a .365SE-02 



* * constrained one-oim f nsional search information * * * 



PROPOSED DESIGN 
alpha a . 8655RE-0 2 
X-VECTOR 

-.5109e-02 • 1 96<i E -0 1 -.7756E-02 

OBJ « , 1 5 1 72E+ 02 



constraint values 



-, 1000E + 01 


-• 1 OOOE + O 1 


.. l53aE*0l 


-.U663E+00 


-. 18U2E+01 


1580E + 00 


- , 1 982E+0 1 


-. t8a<l 


-.2000E+01 


, B 3 2re- 1 3 


1937E + 0 1 


-.6390E-01 


-. 1823E701 


-.1 770E + 00 


-. lt>8«E + 01 


-•316 


»,1538e+01 


-,u*2ie*00 


1398E+01 


-.6022E+00 


-. 1272E+01 


-, 7280E+00 


-. llftae+Ol 


-.335' 


-, 1076E*0 1 


- . P2 u SE+00 


•, 1 OOuE+O 1 


-.9964E+00 


-,9ua(3E + oo 


- . 1 055E+0 1 


-.8931E+00 


-.non 


-.8“33E+00 


”•1 1 57E + 0 1 


-, 789RE+00 


-.121 1E+01 


-.72bbE+00 


- . 1 271E+0 1 


-, 65 1 a£ aOO 


-. 1 Ja< 


- , 5629E + 0 0 


lai7E+01 


.,a627E*00 


-. 1 537E>0 1 


-.3565E+0O 


-. 1649E+01 


-,25ai£+oo 


-• 17at 


-. 170“E*00 


-. l8i0E+01 


-.1261E+00 


• . 1 87 u EaO 1 


-. 1U8SE+00 


-. 1851E + 01 


-.2720E+00 


-• 172f 


-. 5389E + 0 0 


-.1461E+01 


lOQOE+Ol 


-, 1000E + 01 











TWO-POINT INTERPOLATION 



PROPOSED design 
alpha 3 .13765E-01 

X-VECTOR 
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.35256-14 


.2963E-01 


-.7939E-02 




% 








OBJ 3 , 


13638E+02 














constraint values 














.IOOOe+OI 


-.ioooe+oi 


-.1S61E+01 


-.0392E+00 


-, 1872e+01 


-• 1291E+00 


-.2000E+0 1 


•,11796.1 


. 2000E+0 1 


• 7698E- 1 3 


.. 191 7E + 01 


• , 8250E-0 1 


i788E+o l 


-.21 17E+00 


-, 1690E+01 


- • 3602E* 1 


,19926+01 


•• 5079E+G0 


13SOE+01 


-.6"l5E+00 


-.12«7E+01 


7539E+00 


-. 1 1S9E+01 


•.aaiiEf 


,10 9 9E+01 


• • 9Q56E + 00 


-.10996+01 


-.951SE+00 


-.101 5E + 0 1 


-.9852E+00 


-.9852E+00 


iOlSE^ 


•05 1 5E + 00 


• * 1 OuQE+O 1 


-.90S6E+00 


-, 1 Opq£+ 0 1 


-.8ul 16 + 00 


-.1 159E+01 


-, 7534E+00 


12a7E>i 


.69156+00 


•« 1 35QE+0 1 


50 79E + 00 


-.1992E+01 


-, 3602E+00 


-.16406+01 


-.21 176+00 


1788E + * 


• 8250E-0 1 


• • 1 9 1 7E + 0 1 


0 • 


-.2000E+01 


-.1179E-03 


-.20006+01 


-.12816+00 


•.1Q72EX 


• (1392E + 00 


-.1561E+01 


-. 1000E+01 


-, 1000E+01 











* * * End of one-oihfnsional search 



CALCULATED alpha 3 . 1 3765E-0 1 

00 J « , 136384E+02 

DECISION VARIABLES Cx-VECTOR) 



D 


•* 35250E- 1 4 


.246316-0 I 


-.79342E-02 








CONSTRAINT VALUES (G 


« VECTOR ) 










1) 


lOOOOE+Ol 


.. lOOOOE+Ol 


lS^OSE+Ol 


-,93920g+00 


-. 18719E+01 


-. 12806E+00 


7) 


« , 1 9999E.0 1 


-, 1 1 7906-03 


200006+01 


, 76975E-1 3 


-.191 75E+01 


- . 8250 3E-0 1 


13) 


•.1 78B3e»01 


-.21 172E+00 


1 63986+0 J 


-.36016E+00 


-.19921E+01 


•• 5078oE +00 


1’) 


-.13585E+01 


_ . 64 1 USE + 0 0 


1 2466E + 0 1 


-.75395E+00 


-.1 1589E+01 


-.89107E+00 


25) 


-, 109uuE+0 1 


9056 16 + 00 


-. 10u856+01 


• . 95 1 4 bE + 0 0 


-,101u8E+01 


-.98522E+00 


31) 


- , 9®522e + 00 


10 1 98E + 0 1 


-,95l46fc+00 


-.10afl5E+01 


-.9o56l£+00 


-.10944E+01 


37) 


-.8O107E.00 


1 1589E.01 


753956+00 


-, 12966E + 01 


-.691486+00 


-. 13585E + 01 


«3) 


-•5*)786E»00 


..lu921E+01 


-.360166+00 


-, 16398F+01 


-.211726+00 


-.17885E+01 


u9) 


-.32503E-01 


-.191756+01 


0. 


-.20000E+01 


-.1 1790E-03 


-, 19999E + 01 


5S) 


-.128066+00 


-.187196+01 


• , 4 3920E tOO 


-.156036+01 


-, 1 OOOOE+O 1 


-.100006+01 



BEGIN ITERATION nUhBfr 3 

CT 3 -,10000E+00 CTL » -.10000E-01 PHI 

THERE ARE a ACTIVf constraints 

constraint numbers ape 
a 10 51 53 

THERE are 0 VIOLATED constraints 

THERE ARE 0 ACTIVp SIDE CONSTRAINTS 



GRADIENT OF OBJ 

1) ,3P13®e+ 03 .660S6E+03 ,673 9 8E+ot 



gradients of active and violated constraints 
constraint NUMBER a 

t) -.127336+02 1&709E + 02 0. 



CONSTRAINT NUMBER 
1) -,12392£+02 



10 

,126336+02 



0 . 



, 50000E+0 1 



CONSTRAINT NUMBER 51 

1) .12342E+02 . 1 2833E + 02 0. 

CONSTRAINT NUMBER S3 

1) ,12733t+02 .U704E + 02 0, 



PUSH-OFF FACTORS, (TmeTA(I), Isl.NAC)- 

n o. o. o. o. 

CONSTRAINT PARAMETER, beta 3 ,llb24E+01 

SEARCH DIRECTION (S-vECTOR) 

1) -.5R251E+00 ..loOOOE+Ol -.10203E-0J 

ONE-OIMENsIOnaL SEAR^m 

INITIAL SLOPE * -,8o 2 sE+ 03 PROPOSEO ALPHA s .30S6E-02 



* * CONSTRAINED ONE-OIMpNSlONAL SEARCH INFORMATION * * • 



PROPOSEO 


oesign 














alpha 3 


. 3 05b2E-02 














X-VECTOR 
















-,1811e-02 


•2157E-01 


-,79b5E-02 












OBJ = 


14934E+02 














CONSTRAINT VALUES 














-, 1000E + 01 


-. 1 OOOE+O 1 


1535E + 01 


-.46S2E+00 


-, 1839E+01 


-.181 lE+OO 


-. 1972E+01 


— .281 1 E • 1 


-, lRS^E+Ol 


-• 1 b2bE-0 1 


-.lRlsEtOl 


-.89S9E-01 


-. 1800E+01 


-,2004E>00 


- . 1 bb2E + 0 1 


-.3384E- 


1 520E + 0 1 


-.4799E+00 


..1388E+01 


-. 6 1 23E+00 


-. 1272E+01 


-. 7280E + 00 


-. 1 1 7bt+0 1 


- . 8237E- 


HOOE + Ol 


-• 89976+00 


10416+01 


-.9S92E+00 


-.9R27E+00 


-, 1 007E+01 


-.9497E+00 


- . 1 050E' 


-,9oSo£+00 


-.lflPSE+Ol 


-.85196+00 


-. 1 14HE+01 


— , 785 OE + 00 


-, 1215E+01 


-.70096+00 


-. 1299E- 


-.5984E+00 


•* 1 402E+0 1 


U80 1E+00 


-. 1S20E + 01 


-.3S27E+0O 


-.1647E+01 


-.2277E+00 


-. 17726- 


-.122SE+00 


•• l877E + °l 


-.b°R6E-01 


-. 1939E + 01 


-. 7u22E-0 1 


-. 192bE*01 


-.20ISE+00 


-.1798E- 


-.4909E+00 


-. 1S09E+01 


-. lOOoE+Ol 


-, 1000E + 01 










TNO-POINT 


INTERPOLATION 












PROPOSEO 


oesign 














ALPHA = 


, 1 0 3b 1 E-02 














X-VECTOR 
















-,bl39 E -03 


,23S9 E -01 


-.794SE-02 












OBJ « 


14034E+02 














CONSTRAINT VALUES 














-.1000E+01 


- • 1 OOoE + O 1 


..1552E+01 


-.aaaoE+oo 


• , 1 86 1 E + 0 1 


-, 1 393E+00 


-. 1990E+01 


-, 9b08E« 


••199«E*01 


•• 5512 E -02 


-.191 7Ea01 


-.8321E-01 


-.1 792E+0 1 


-,2079E»00 


• , 1 64 7E +0 1 


-. 3528E< 


• , 1 S02E+0 1 


-,498<jE>00 


-. I3b06+Ol 


- . 63 1 b£ + 00 


-, 1 2S5E+0 1 


-. 74486+00 


-. 1 165E + 01 


• . 8352E * 


•.109bE>01 


-•903^E>00 


-. 104 b £+01 


-,95«lE+00 


-. 1007E+01 


-.9927E+00 


-.9732E+00 


-. 1027Ei 


• t 9357E*00 


1064E + 01 


.,98746+00 


-.1113E+01 


-.8221E+00 


-. 1 178E + 01 


•«735bE+00 


-. 12b4Ei 


••b^b^E+OO 


1 373E>0i 


-.498SE+00 


-. 1502E + 01 


-.3s7bE+00 


-. lb92E*01 


-.217 1E+00 


-, 1783E1 


• # 9b06E -0 1 


-.l9oaE+oi 


20b7E»0 1 


-.19796+01 


-.2524E-01 


-. 1 975E + 0 1 


-.1530E+00 


-. 1B47EV 
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• # 4567E *00 


1543E*01 


1 OOOE+O 1 


-, 1000E+01 


. 








THREE-POINT INTERPOL 


aTIOn 












PROPOSED 


design 














ALPHA s 


.306155-03 














X-VECTOR 
















I814E-03 


.2432E-01 


.. 7937E-02 












OBJ » , 


1 3750E+02 














CONSTRAINT VALUES 










* 




1000E + 01 


•• l oooe*o 1 


1558E+01 


-,44l8E-fOO 


- . 1 869g ♦ o 1 


l3l4£+00 


-,1997E>01 


-.2922E-02 


-.1998E+01 


1629E-02 


1 9 1 7E> 0 1 


-.B271E-01 


1 789E+0 1 


-.2106E+00 


».1642E>01 


- . 3580E+00 


-♦1995E+01 


• .505 1 £*00 


-. 1361E+01 


-.P30oE-cOO 


1 2«9E+0 1 


-.7509E+00 


-. 1 161E+01 


-.839iE*00 


-,109SE > 01 


•.^OSoE+OO 


-, 1 048E>0 1 


-.9522E+00 


-. 1013E + 01 


-.9B74E+00 


-,9817E*00 


1018E+01 


*.9«68EtOO 


-.10S3E+01 


-.9002E+00 


-.1 100E*01 


-.8355E+00 


1 lfeSE + 01 


-.7482E+00 


-. 1252E+01 


• , 6372E + 00 


..1363E>01 


..5051E+00 


-.lopse^oi 


-.359aE>00 


-. 1 64 1 E + 0 1 


-,2l33Et00 


-.1787E+01 


-.8651E-01 


-.19136*01 


•»b107E-02 


1994E + 01 


-.75 a lE-02 


1 99 2E *0 1 


-.1 354E+00 


-. 18b5E»01 


-,«aaaE-fOO 


-• 1 556E >0 1 


-. 1000E+01 


1000E>01 











* * * End of one-oimfnsIonal search 

CALCULATED A(_PHA s '.69389E-17 

OBJ s , 1 363S4E+02 NO CHANGE ON OBJ 



OECISION VARIABLES Cx-vEcTOR) 



1) 


-.35258E-14 


. 2463 1 E-o 1 


-.79342E-02 








CONSTRAINT VALUES (G 


-VE C 70P) 










1) 


10000E + 01 


.. 10000E+O1 


1 56°8E+0 1 


43920E+00 


-.18719E+01 


-. 1 28 ObE -fO 0 


7) 


— * 1 9999£ + 01 


.. 1 1 790E-03 


-.20000E+01 


, 76975E-1 3 


• . 1 9 1 75E + 0 1 


-.82503E-01 


13) 


-.1 7883E+01 


-.21 1 72E+00 


lb398E+0l 


3bO 1 bE + OO 


U921E + 01 


- , 50 78bE *00 


I*) 


• , 1 3585E + 0 1 


- . 64 1 48E+ 00 


12496E+01 


-.7S34SE+00 


-.11 589E + 0 1 


-.841 07E+00 


25) 


10944E+01 


9()56 1 E *00 


-.1 l»485E-f01 


- . 95 1 4bE -fOO 


-.10148E+01 


• * 98522E + 00 


31) 


-.90522E+OO 


1 0 1 40E + O 1 


® • 95 1 4(>EaOO 


104« 5 e + Oi 


- • 905b 1 E +00 


-« 1 094«£»0 1 


37) 


-.84107E+00 


1 1589E > 01 


-.75345E+00 


l24bbE»01 


-.641 48E+00 


-. 13585E+01 


45) 


-.50788E+00 


U921E + 0 1 


-,3b0l6£+00 


lb398E*01 


-.21 172E+00 


-.1 7383E+0 1 


49) 


-.82503E-01 


191 75E>0 1 


0 . 


-,20000Et01 


-.1 1 7906-03 


-. 19999E+01 


55) 


120O6E+OO 


18719E+01 


-.43920E+00 


15608E»01 


-.1 0000E+01 


-.10000E+01 



.begin iteration nUmBfr a 

C.T » -,342ooE-oi CTL « -.46416E-02 PHI s .50000E+01 

THERE ARE a ACTIVp’cONSTRAINTS 

CONSTRAINT numbers Aq£ - - 

8 10 51 53 

THERE Are 0 VIOLATED CONSTRAINTS 

THERE ARE 0 ACTIVjr SIDE CONSTRAINTS 

GRAOlENT OF OBJ 

1) » 39 1 38E + 03 .86056E + 03 ,67398E*01 
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GRADIENTS OF ACTIVE and VIOLATED CONSTRAINTS 
CONSTRAINT NIJH0ER 8 

1) -.60623E + 00 ,79S2 < ’Ei-00 0, 

Constraint number To. 

|) •, 6R88 3E + 0 0 . 7 j 52'?E-t'00 0. 

CONSTRAINT number si 

1) . 6^88 3E + 00 ,71529E»00 0, 

CONSTRAINT NUMBER S3 

1) .60623E+00 .79529E+00 0, 



PUSH-OFF FACTORS, <Th E TA(I), Irl,NAC) 

n o. o. o. o, 

CONSTRAINT PARAMETER, beta a ,U62<4E+0l 

SEARCH DIRECTION CS-vECTOR) 

1) -,5925l£ + 00 », 10000E + 0 1 -,10203E'*01 

ONE-OIHENsIONAL SEARch 

INITIAL SLOPE a -.0S25E+O3 PROPOSED ALPHA - .2291E-02 



* CONSTRAINED ONE-DIMcmSIONaL SEARCH INFORMATION * * » 



PROPOSED DESIGN 
ALPHA s .22907E-02 
X-VECTOR 

-.1357E-02 .2234E-01 ..7958E-02 

OBJ s , 1 4579E+02 



constraint values 



• , 1 OOOE+O 1 


•• 1 OOOE + O l 


.. IS41E+01 


-,05876 


•*, 1 988E + 0 1 


-.121PE-01 


19UE+01 


••84076 


-.1513E+01 


-,a8t>9E + 00 


«. 1380E + 01 


• # 6 1 


•* 1 099E + 0 1 


-.9012E+00 


— • 1 0 4 3£ a 0 1 


-.9573E 


•»9 166E+00 


-.I0B3E+O1 


..8653E+00 


« , 1 1 35E 


•,8092e+00 


-.1391E+01 


-,a87lE+00 


-,1513E 


•, M 25E+00 


1 888 E + 0 1 


..4569E-01 


-.1954E 


•,4779E*00 


-,1522Ef0l 


1 OOOE + O 1 


1000E 


two-point 


Interpolation 




PROPOSED 


design 







alpha * 


.78455E-03 






X-VECTOR 








«.4649 E .03 


.2385E-01 


-.7942E-02 





OBJ » .13977E+02 



*00 


1847E + 01 


-,1528E»00 


t979E + 01 


-01 


-.1797E+01 


-.2032E*00 


-,le>56E*01 


*00 


1266E + 01 


-.7344E+00 


-.U72E + 01 


*00 


-.9983E+00 


1002E+01 


-.9586E+00 


*01 


-,799iE+00 


-,120l£*01 


• , 7 1 40E + 0 0 


*01 


35<*6E + 00 


1645E+01 


-.2237E+00 


+ 01 
♦ 01 


-,556t>E-0l 


1944E+01 


-.1831E+00 



-.2110E' 
-.3438E 
-.3281E- 
1091E- 
• « 1 28t>E- 
-.1776E- 
-.1817E' 



83 



CONSTRAINT values 














-, 1000E+01 


•• 1 OOOE+O 1 


-.15546+01 


-.4459E+00 


-.18636+01 


-. 1 36SE+00 


-.19936+01 


- . 7304E-02 


-.1996E+01 


«.4l7UE-0<2 


.. 1 9 1 7E + 0 1 


-.83046-01 


-.17916+01 


-.2088E+00 


-, 164SE*0 1 


-. 3S46E+00 


«, 1 499E + 0 1 


•• 5 OQ 7 E+OO 


-.13006+01 


-.63406+00 


”• 1 2s3E + 0 1 


-.7469E+00 


-.1 183E+01 


-.0366E+OO 


..1096E+01 


-.90416^00 


-.10476+01 


-.9S356+00 


-. 1 0096*01 


-.9909E+00 


-.9761E+00 


-.10246*01 


".9395E+00 


•• lObOEtOl 


-.09186+00 


-. 11006+01 


- .82675+00 


-. 1 173E+01 


-.7399E+00 


-.1260E+01 


-, 6304f*o 0 


-•1370E+01 


-.50076+00 


-.1 499 E +0 1 


-.3S82E+00 


-. 1642E+01 


-.2150E+OO 


-.17846*01 


-.9277E-01 


-• 1907Et0t 


.. 1585E-01 


-.19046*01 


-. 1914E-01 


-, 19016*01 


-.14696+00 


-.18536*01 


-.4525E+00 


* • 1 548E + 0 1 


.. 1 0006+01 


-.1 OOOE + O 1 










THREE-POINT INTERPOLATION 












PROPOSED 


DESIGN 














ALPHA s 


.22044E-03 














X-VECTOR 
















-.13006-03 


• 244 1 £«0 1 


-.7936E-02 












OBJ x , 


13716E+02 














CONSTRAINT VALUES 














-.10006+01 


-. 10006+01 


-. 1559E+01 


-.441 1E+00 


-.1870E+01 


-.13046*00 


-. 19906*01 


-.21376-02 


-.1999E+01 


-.1173E-02 


-.1917E+01 


-. 82056-01 


-.17896+01 


-.2109E+00 


-.18416*01 


- . 3586E + 0 0 


-.1494E+01 


-.50S8E+00 


.. 1 381E+01 


-.63946*00 


- , 1 248E*o 1 


-.7518E+00 


-.11806*01 


-.83986+00 


-.1095E+01 


••9052E+00 


iOrsE+oi 


-.95206+00 


-.1013E+01 


-.90686+00 


-.90276+00 


-. 1017E+01 


-,9401e+OO 


1 052e + 0 1 


-.901 76 + 00 


-,1098 E +01 


-.8370E+00 


-. 1 1636+0 1 


-.74976+00 


-.12506+0 1 


-.6384E+00 


1362E+01 


. ,50596*00 


-.14946*01 


-.35966*00 


-. 1 640E*0 1 


-.2129E+00 


-.17876+01 


-.05396-01 


19 1 5 E + 0 1 


-. 43976-02 


-. 199&E + 0 1 


• • 5463E-02 


-. 19956*01 


-. 1 3346*00 


-.18676+01 



«,aa29E*00 -.15576+01 -.10006*01 -.10006+01 

* * * END OF ONE-OIMpMSlONAL SEARCH 



CALCULATED ALPHA = .43380E-17 

O0J * ,1363046+02 NO CHANGE ON 0©J 



DECISION 


1 VARIABLES ( 


*. VECTOR) 










1) 


-.35267 E -i4 


.246316-01 


-.79342 E -02 








CONSTRAINT values (G 


-vector) 










1) 


-.10000E+01 


-.100006*01 


-. I5808t+0l 


-.439206+00 


-. 1 87 1 9£+0 1 


-.128066+00 


7) 


.,199996*01 


-.117906-03 


-.200006*01 


.769756-13 


-. 19175E+01 


-.825036-01 


13) 


-.178836+01 


-.21 172E + 00 


-, 163906+0 1 


-.360166+00 


-, 1 4921 E+0 1 


-.507886+00 


t 9 ) 


-.135856*01 


— .841 40E *0 0 


-.124666*01 


• . 75345F + 0 0 


-. 1 1589E + 01 


-.841076+00 


25) 


-.109446*01 


-.90561E+00 


-.104056+01 


-.951 406+00 


-. 1O140L + O1 


-.985226+00 


31) 


• . 98522E *00 


1 0 1 486 + 0 1 


-.951466*00 


-.104856*01 


-,9o5olt+00 


• , 1 094 4t + 01 


- 37) 


-.041 076+00 


-. 1 15096+01 


-.75345E+00 


-.124 66 e*01 


-.691906+00 


-. 13585E+01 


43) 


- , 50 786E + 0 0 


-. 14921E+01 


-, 360 1 6E+00 


- . 1 6398E+0 1 


..211726+00 


-.178836+01 


49) 


-.82503E-0 1 


-.191 75E + 0 1 


0 . 


-.200006*01 


-. 1 1 790E-0 3 


-.199996+01 


55) 


-. 120O6E+OO 


-.10719E+O1 


-.439206+00 


-.156086+01 


-. 10000E+01 


-.100006+01 



begin iteration number 5 

CT 3 -.11690E-O1 CTL » -.215«4E-02 PHI x .50000E+01 

THERE ARE 4 ACTIVp CONSTRAINTS 
CONSTRAINT NUMBERS A» e 



84 



8 



JO 



51 53 



there are o violated constraints 

THERE ARE o ACTIVp slOE CONSTRAINTS 



GRADIENT OF OBJ 

1 ) .39138E + 03 , 66056E + 0 3 ,673986+01 

GRA0I£N TS OF ACTIVE AND violated CONSTRAINTS 
CONSTRAINT NUM9ER 8 

1) -.12733E+02 .16704E+02 -.1 1842E-H 

constraint number To 

I) -.123426+02 .126336+02 0, 

CONSTRAINT NUM8ER si 

1) ,123«2e+02 . 1 2633E+02 -.118426-11 

CONSTRAINT NUMBER 83 

1) . 12733£+02 .16704E+02 -.296066-11 



PUSH-OFF FACTORS, (TmeTA(I), 1 = 1 , NAC) 

n o. o. o. o. 

CONSTRAINT PARAMETER. r£tA s .H 624 E + 01 

SEARCH DIRECTION (S-v£CToR) 

1 ) -,"> 925 ^ + 00 .. 100006«-01 -, 10203 e -01 

ONE-OIM£NsIOnaL SEARch 

INITIAL SLOPE = -. 8625 E +03 PROPOSEO ALPHA - . 15286-05 



! 

I 

t 



• * CONSTRAINED ONg-oIMpNSIONAL SEARCH INFORMATION » * * 



PROPOSED DESIGN 
alpha 4 . 15281 E -05 

X-VECTOR 

-, 9054£-06 . 24636-0 1 -, 7934£-02 

OBJ s , 1 3839 E +02 



'constraint values 



-. 1 OOOE+O 1 


-. lOOoE+Ol 


1561 E +01 


-. 4392 E +00 


-, 1 872 E +01 


• * 1281 EtOO 


-. 2000 E +01 


-. 1319 E- 


2000 E +0 1 


-. 8130 E -05 


-. 19176+01 


- , 8250 E -0 1 


17886+01 


-• 21176+00 


-. 1640 E +01 


-. 36026 - 


-, 1492 E+ oi 


». 5 o 78£+00 


-. 1 359 £+o 1 


- . 64 1 5£+00 


-. 1247 E +01 


- ,75346 + 00 


-.1 159 E + 01 


- . 84 116 - 


«, 1094 E+oi 


-, 9 o 5 oE +00 


1049 E +01 


-. 95156+00 


-. ! 0 1 5 E + 0 l 


• • 9852 E *00 


-. 98526+00 


— . 101 5 € - 


• « 95 1 4 £ + 0 0 


•« 1 04 r£ + 0 1 


-, 905 oE »00 


-, 10 < 34 £ + 01 


-. 8410 E+ 0 C 


-•1 IS 9 E + 0 1 


-. 75346+00 


-, 1247 E- 


-, 64 1 5 E + 0 0 


1 359 E +01 


.. 5078 E +00 


1 492 E + 01 


- , 360 2 E + 0 0 


lbaoE + oi 


-. 21176+00 


- . 1 788 E- 


-. 8252 E -01 


•• 1917 E +01 


-. 30486-04 


-. 2000 E+ 0 l 


- , 1 550 E -03 


-• 2000 E +01 


-. 1281 E + 00 


-, 1872 E< 


-. 43926+00 


1561 E +01 


1 000 E + 0 1 


1 OOOE+Ol 









THO-POINT INTERPOLATION 



85 



PROPOSED 


DESIGN 














alpha s 


.53016E-06 














X-VECTOR 
















*.31<UE-06 


.2463E-01 


-, 79346-02 












OBJ a , 


13639E+02 














CONSTRAINT VALUES 














• . 1 OOOE+O 1 


-. 1000E+01 


lS6lE,01 


-.9392E+00 


-.1872E,0l 


-, l28lE,00 


-.20006,01 


-. 1228E-03 


-.2000E+01 


-.2«2lE-0s 


-. 1 o 1 76 + 0 1 


-.fl2sOE-01 


1788E + 01 


-.21176+00 


- . 1 64 0E ,0 l 


-.3602E+00 


-.ia92E,oi 


-.S079E,00 


-.l359E,0t 


-.6415E+00 


-,1247E*01 


-.75346,00 


- . 1 1 S9E .0 1 


-.841 1E + 00 


•• 1 09aE+o i 


-.9056E+00 


-.10u9£,01 


-,9sl5E*00 


1015E+01 


-.98526+00 


• , 9852E + 0 0 


-. 1015E+01 


-,951SE,00 


-.10496,01 


-,905oE,00 


-, 1094E,01 


— ,841 1 E ,00 


-.11596,01 


-, 75346,00 


-.1247E+01 


-.b a l5E+00 


-. 1359E + 01 


••5U79E+00 


-,1«92E*01 


-, 3&02E +00 


-,16«0E+01 


-.21 17E,00 


-.17886+01 


..8251E-01 


-. 1917E.01 


.. io57E-o« 


-,2000E,01 


- , 1 30 8E-0 3 


- , 20 0 06 ,0 1 


-.128l£,00 


-.1872E+01 


-.4392E,00 


-. 1561E+C1 


.. 1 OQOE+O 1 


-. lOOOE+Ol 










THREE-POINT INTERPOLATION 












PROPOSED 


DESIGN 














ALPHA s 


. 15380E-06 














X-VECTOR 
















-.91 13E-07 


•2983E-0 1 


-,793«E-02 












08 J * 


13638E,02 














constraint values 














-,1000E,01 


-• 1 QO oE + Q 1 


.. l56lE»01 


-.4392E+00 


-, 1 872E,0 1 


-.12816,00 


• . 200 0E ,0 1 


-. 1 19JE-03 


-.2000E+0 1 


-.81A3E-06 


-. 1917E + 0 l 


-,82sDE-01 


-. 1 7886+0 1 


-.211 7E + 00 


-. loaOE + 01 


-. 3602E+00 


-.1492E+01 


-•5079E>00 


-.1359E.01 


-,b4l5E,00 


-.12476,01 


-.7S34E+00 


-. 1 159E,01 


-.841 IE, 00 


-.lORUE+Ol 


-•905 6 E>00 


-.10«9E+01 


-, 9515E+00 


- . 1 0 l 5E + 0 1 


-.9852E+00 


- • 9852E ,00 


-. 1015E+01 


• , 95 1 5E + 0 0 


•• io49e*oi 


..905bE+00 


-, 10946,01 


-.841 tE,00 


-.11596+01 


-,7S34E,00 


-. 12476+01 


-.6 a l5E»00 


• . 1 359E + 0 1 


«.S079EtO0 


-. 14<}2E,01 


- . 3^02£ + 0 0 


-. 1640E+01 


-.21 1 7E ,00 


-. 17886+01 


-,825oe-0 1 


•• 1 Q i 7^t0 1 


.,3068e-05 


-.2000E+01 


• . 1 2 1 bE-0 3 


-.2000E+01 


-. 128ie,00 


-. 1872E+01 


-.43926,00 


•• 1 56 1 E+Q l 


1 OOOE+Ol 


-. 1000 E + 01 











* * * ENO OF ONe-OIMp N siONAL SEARCH 



CALCULATED ALPHA a ,25«llE-20 

OBJ a , !3b384E+02 NO CHANGE ON OBJ 

DECISION VARIABLES (y-vEcTOR) 



1) 


* • 35267E» i 4 


.24631E-01 


-.79342E-02 








CONSTRAINT VALUES (G 


-VECTOR) 










1) 


-, 1 0000£,0 1 


-.10000E+01 


-. 15608E+01 


-.439206+00 


-. 18719E+01 


-« 1 280bE ,0 0 


7 ) 


• . 1 9999E ,01 


-, 1 1 790E-03 


-,20000E,0 1 


. 769756-13 


-. 19175E + 01 


-. 82S03E-0 1 


IS) 


-. 178836+01 


«.2l 1 72E+00 


-.1&398E+01 


-. 3bO 1 bE + O 0 


-, U921E + 01 


-, 50 7 3bE ,00 


l’) 


-,13585e,01 


-.641486,00 


-.124666+0 1 


- ,753456+0 0 


-. 1 1 589g + o 1 


-,84i07E,00 


25) 


-. 10944E,01 


..9o56lE,00 


-. 1 0485E,0 l 


-.951 4bE ,0 0 


-.10148£,01 


-.98522E,00 


31) 


-,98522e+00 


-.101486+01 


• , 95 1 0 bE +0 0 


-. 10485E+01 


-, 90 5b 1 E +00 


-. 109446+0 1 


37) 


-.841076,00 


-.11 589E ,0 l 


-.75345E,00 


- . 1 24b6E ,01 


- , b4 1 48E + 0 0 


-. 1358SE+Q1 


43) 


-.50786E+00 


-. 1492 1 E,0 1 


«.3b01bE+00 


-. 1 b398E + 0 1 


-.21 1726 + 00 


-. 17883E+01 


49) 


-.82503E-01 


-.191 75E,0 1 


0 . 


-.20000E + 0 1 


-. 11790E-03 


-.199996,01 


55) 


-. 1280bE+00 


-.18719E+01 


-, 4 392 06 + 0 0 


-. 15b08E + 01 


-.100006,01 


-,10000E,01 
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FINAL OPTIMIZATION information 



OBJ * ,l3638q£+02 

DECISION VAR^BlES (x-vECTOR) 



1) 


-.35267E-10 


,2a63lE-01 


-,793a2E-02 








Constraint values (G 


-VECTOR) 










1) 


100006*01 


1 OOOOE+O 1 


-. 1 5608E+0 1 


- , a 3920E + 0 0 


-. 18719E+01 


12806bt00 


7) 


199RRE+01 


-.11 7Q0E-0 3 


-. 20900E+0 1 


,7b975E-13 


-. 19175E*01 


-•82503E-01 


13) 


-.17883E+01 


-.21 1 72E + 00 


-, 1o398E*01 


- , 3bO 1 b£ *00 


-. ia92iE + 0l 


•.5078bE+00 


19) 


13585E+01 


-.baiaeEtOO 


-.12“bbE*01 


-.753asE^O0 


1 1589E + 01 


« # 8<11Q7E+0G 


25) 


10RaaE + oi 


_ # 9 0 5blE + 00 


-. 10U85E+01 


• , 95 1 ab£ + 0 0 


-, 101 “8t + 0 1 


-•985226+00 


31) 


-.98s22E+00 


-.10 lyBE + O 1 


“.951 abE+OO 


1 0 u85E *01 


-.90561E+00 


• • l 0944E + 0 1 


37) 


-,8a|o7E t OO 


-. 1 1589E + 01 


-,753a5E+00 


-,l2abbE»oi 


-.baiaatfOO 


13585E+01 


43) 


-.50786E+00 


-. ia921E-01 


-,3bOl6E+00 


-. 163986*0 1 


-.21172E+00 


-• 17883E+01 


a<n 


-.82503E-01 


-. 1R175E+01 


0 . 


-,20000£+0t 


-. 1 1790E-03 


-. 19999E+01 


55) 


12808E+00 


-. 18719E+01 


- , a 3920E + 00 


-, l5b08E*01 


-,iooooe+oi 


iooooe+oi 



there are a ACTIVf constraints 

CONSTRAINT NUMBERS Apg 
8 10 51 53 



THERE ArE 0 VIOLATED CONSTRAINTS 

THERE ARE 0 ACTIVp sloe CONSTRAINTS 

TERMINATION CRITERION 

ABS(l-OBj(i-l)/nfl,rCin LESS THAN OELFUN FOR 3 ITERATIONS 
A8S(08J(I ) -OBJ C f-1 ) ) LESS THaN 0A8FUN FOR 3 ITERATIONS 

NUMBER OF ITERATIONS » S 



OBJECTIVE function W 


is evaluated 


27 


TIMES 




CONSTRAINT functions 


were EVALUATED 27 


times 




PHASE DISTORTION CALCULATIONS 








BEAM ORIENTATION NUMRFR = 1 








AZMUTH ANGLE 




s 0 


,00 DEGREES 






ELEVATION ANGLE 


* 50 


,00 DEGREES 






MACH NUMBER 




2 


.70 






R 


ETA 


X 


Y 


A 


N 


0, 


0.00 


o'. 


0. 


, 1 9S 1 E* 00 


0. 


.500CE-01 


0,00 


0. 


.soooe-oi 


. l53bE+00 


.aobOEtoo 


,50006-01 


45.00 


.3536E-01 


,353bE-01 


. IbabE+OO 


. 29abE*00 


.50006-01 


90.00 


.5000E-01 


,bb75E-09 


. 1928E + 00 


. 1 179E-01 


. 5000E-0 1 


135.00 


# 3538E -Q 1 


-.353bE-01 


,22306*00 


- , 2SS2E tOO 


,50006-01 


180.00 


. 1335E-08 


-.SOOOE-OI 


.23bl£+00 


-,4l80E*00 


, SOOOE-O 1 


225.00 


.,3536E-01 


- , 35 3bE -0 1 


,22306*00 


-.28826*00 


.50006-01 


270.00 


-.5000E-01 


-.2002E-08 


. 1928E+00 


. 1 1 796-01 


, 5000E-01 


315.00 


. .35366-01 


,3S3b£-01 


, lbabE+OO 


,29abE+00 


# 1000E+00 


0.00 


0. 


.10006*00 


,11 17E+00 


.8038E+00 
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.lOOOEtOO 


as. 00 


.7071E-01 


,7071 E-(H 


, 1316E.00 


, 598 1 EtOO 


.lOOOEtOO 


90.00 


. lOOOEtOO 


. 1335E-08 


. 1858E + 00 


.4740E-01 


.lOOOEtOO 


135.00 


.7071E-01 


-.7071E-01 


,2483EtOO 


- , 56°6E t 00 


.lOOOEtOO 


180.00 


.2670E-O8 


- . 1 OOOEtOO 


,276oEt00 


-,8q76Et00 


.lOOOEtOO 


225.00 


..7071E-01 


-.7071E-01 


,2483Et00 


-,56o6Et00 


.lOOOEtOO 


270.00 


..lOOOEtOO 


-,a005E-08 


. 1858E+00 


.4740E-0 1 


.lOOOEtOO 


315.00 


..7071E-01 


, 7071 E-0 1 


, 13l6Et00 


.5981 EtOO 



ZE»NICKE COEFFICIENTS/ 



AVERAGE = 
TILT, X = 
FOCUS = 
ASTIG # 
COHA s 



,l3222E-ft 2 
, 6RU62E-0 1 
.74027E-03 

-,I077BE-n2 

,U2i<»6E-oa 



Y S -,56737e-03 
. 76826E-05 

-.20757 E-o 7 -.16585E-03 .13640E-02 



phase distortion calculations 

BEAM ORIENTATION NUMqgp s 2 



AZHUTH ANGLt 




3 as 


.00 DEGREES 






ELEVATION angle 


3 30 


.00 DEGREES 






MACH NUMBER 




s 


.70 






R 


ETA 


X 


Y 


A 


N 


0 . 


0.00 


0. 


0. 


,2591Et00 


0. 


.5000E-0 1 


0.00 


0. 


.5OOOE-OI 


. 1973E + 00 


. 4980£t 00 


, 5000E-0 1 


45.00 


,3S36E-01 


.3536E-01 


. 22 1 9£ tOO 


.2349E.00 


.5000E-01 


90.00 


.5000E-01 


.6675E-09 


,2695Et00 


-.lflS3EtoO 


.5000E-01 


135.00 


. 3536E-01 


-.3536E-0I 


,3090Et00 


-.481 lEtOO 


.5000E-01 


180.00 


.I33SE-O8 


-.5OOOE-OI 


• 3 1 5 7EtOO 


-,47lfe£+00 


.5000E-01 


225.00 


-.3536E-01 


-.3536E-01 


,2894E»00 


- , 1 923Et00 


.SOOOE-Ol 


270.00 


• . 50OOE *0 1 


-.2002E-08 


. 24b6Et00 


,l797Et00 


.5000E-01 


315.00 


• 3S36E-01 


.3536E-0I 


.2093EtO0 


. 4800£t00 


, 1 OOOEtOO 


0.00 


0. 


.lOOOEtOO 


,1 1 95£t00 


, 1 151Et01 


, 1 OOOE+OO 


45.00 


.7071E-O1 


.7071E-01 


,l724Et00 


,5715Et00 


.lOOOEtOO 


90.00 


. ioooe + oo 


. 1 335E-08 


,2777EtOO 


-,3700Et00 


.lOOOEtOO 


135.00 


.7071&-01 


-.7071E-01 


,359OEtO0 


-.991 6t 1 0 0 


, lOOOEtOO 


180,00 


.2fc70E-08 


-.lOOOEtOO 


.3676E+00 


-,9l 8 1 E ♦ 0 0 


.lOOOEtOO 


225.00 


-.7071E-01 


-.7071E-01 


•31 34Et00 


3451 EtOO 


.lOOOEtOO 


270.00 


1 OOOE *00 


-.400SE-08 


, 2323E +00 


. 3574E 1 00 


.lOOOEtOO 


315.00 


•.70716-01 


.7071E-01 


. l538EtOO 


,96<j0Et00 



ZERNICKE COEFFICIENT;?/ 
AVERAgE 3 .43769E-q2 
TILT, X = .84736E-01 


Y * 


-.31 425E-01 




FOCUS s ,29497E-(i? 
ASTIG = ,17874 e-oj 
COMA * ,389i2E-o3 


.391766-02 

.92258E-o« 


.1711 IE-02 


.1621 0E*02 



PHASE DISTORTION CALCULATIONS 



BEAM ORIENTATION NUMqgp s 
AZMUTH ANGLE * 
ELEVATION angle s 



3 

90.00 OEGREES 

10.00 OEGREES 
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MACH NUH06R 




S 


.70 






R 


ETA 


X 


Y 


A 


N 


0. 


0.00 


0 , 


0. 


. 34406+00 


0. 


.50006-01 


0.00 


0 . 


.50006-01 


.27076+00 


.5017E+00 


.5000E-01 


45.00 


# 3536E-01 


,35366-01 


,2931 E+00 


,32«7£+00 


.50006-01 


90.00 


. 5O0OE-O 1 


.6675E-09 


. 34396+00 


-. 1 160E-02 


.5000E-01 


135.00 


,3S36E-0l 


-.35366-01 


,390 3E + 00 


-, 16086+00 


.50006-0 1 


180.00 


.1335E-08 


-.50006-01 


.40666+00 


-.29196+00 


, 5000E-0 1 


225.00 


-.3536E-01 


- , 35 36E-0 1 


,39036+00 


-, 16086+00 


.50006-01 


270.00 


-.5000E-01 


-.20026-08 


.3439E+00 


-. 1 1606-02 


,50006-01 


315.00 


-.3536E-01 


.35366-01 


,29316+00 


.3247E+00 


, 1 OOOE+OO 


0.00 


0. 


, 1 0006+00 


, 1783E+00 


,12956+01 


,10006+00 


45.00 


.7071E-01 


.70716-01 


.23746+00 


.80556+00 


.lOOOE+OO 


R0.00 


. lOOOE + OO 


.13356-08 


, 34 35E + 00 


-.48756-02 


, 1000E+00 


135.00 


.7071 E-0 1- 


-.70716-01 


.4256E+00 


-.43976+00 


. 1 OOOE+OO 


180.00 


0 Zb 7 OE »0 6 


-.1 0006+00 


.45146+00 


-, 6368E+00 


.10006+00 


225.00 


-.7071E-01 


-.70716-01 


.4256E+00 


-.43976+00 


,10006+00 


270.00 


.. 1 OOOE+OO 


-.40056-08 


,34356+00 


-.48756-02 


.10006+00 


3I5.OO 


-.7071E-01 


.70716-01 


.23746+00 


. 8055E+00 



zernicke COEFFICIENTS/ 
AvERAgE = .186726-01 
TILT, X a .732716-01 


Y « 


-.50955E-03 




FOCUS s .780436-02 
ASTIG = .535946-02 
COHA a ,23 o76E-o2 


• . 45822E-04 
•10126^-0^ 


.41Q76E-02 


.122516-02 



FLO* FIELD FOR THETA = 0.000 DEGREES 



haCH NUMBER 
X 

-,«0006+0l 
-.3600E+01 
«, 32006+01 
-.28006+01 
- , 24006 +0 1 
-.2000E+01 
1600E+01 
-.1200E+01 
-.0OOOE+OO 
-.4000E+00 
,4974£-l3 
.40006+00 
.aoooE+oo 
.12006+01 
. 1 600E+0 1 
,20006+01 
,2a006+0 1 
.28006+01 
.3200E+01 
.3600E+01 
.4000E+01 



9 

. 1000E+(ji 
. 1 0006 + fl 1 
. 1 OOOE + o i 
. t OOOE+o t 
, lOOOE+oi 
, 1 0006+n 1 
, 1 o 78 E*qi 
. 1 1936+01 
. 1265E^t 
, 1 29aE+o 1 
.1300E+O1 
.12946+41 
. 1265E+01 

, 1 1 R3E +o 1 

. 10786+nl 
, 1 OOOE+o 1 
, 1 OOOE+n 1 
. 1 OOOE +n 1 
. 1 OOOE+n 1 
. 1 OOOE+o 1 
,1000E+oi 



.700 

PHI 

. 1254E-01 
, 1 3 1 9E-0 1 

.37746-02 
. 38576-02 
.32426-01 
.31656-01 

, 10326 + 00 

,8a7lE-0t 
.55716-01 
.26316-01 
.781 7 e-14 
.26B1E-01 
.5571E-01 
.8471E-01 
.10326+00 
.01856-01 
.3242E-01 
.3857E-02 
.3774E-02 
.13196-01 
.1254E-01 



U 

1820E-01 
.15506-01 
.22546-01 
-.31986-01 
-.10756+00 
123bE + 00 
-.42486-01 
.33016-01 
,65016-01 
.6033E-O1 
,65656-0 1 
.68336-01 
. 65016-01 
.3381E-01 
-.a2u8E-01 
-.12366+00 
-. 1G75E+00 
-.31906-01 
.22546-01 
. 15506-01 
• , 1 820E»0 1 



V 

,22556-01 
.20796-01 
19466-01 
-.41966-01 
.13896-01 
, 1 3286+00 
,18246+00 
.13706+00 
, 79 1 5E»0 1 

» 33 1 RE-0 1 

-.12286-13 
-.3319E-01 
-.791SE-01 
-. 1370E+00 
«. 1 82 aE + 00 
-.1 3286+00 
-. 1339E-01 
.4196E-01 
, 19466-01 
-.2079E-01 
-.22556-01 

41.76395 



CP 

.3588E-01 

- , 3 1 44E-0 1 

-.4507E-0 1 
.6221E-01 
,21476+00 
.226 5E+00 
.5167E-01 
- , 86 39E-0 1 
1363E+00 
-. 1378E+00 
-. 1313E+00 
-.13786+00 
1363 E +00 
-.86396-01 
.51676-01 
.22956+00 
.2147E+00 
.62216-01 
-, 45a 76-0 1 
-,31a4E-01 
.35886-01 



CRITICAL PRESSURE COpFFlCIENT ON SURFACE s 



SURFACE DEFINITION (EPS = ,300> 

polynomial coe p ic ients (Ain, i=o,m 4 xk) in x-direction 

,10000E»01 -,56843 f -i3 -.105P1E+00 . ,28422e-13 -.13454E+00 
-.35267E-14 ,24631e-01 

POLYNOMIAL COEFICIEN^s (B(I)» I=O.M»XP) IN THETA-DIRECTION 
, 1 0 OOOE+O 1 0, -. 18333E + 01 0. .84895E+00 

0, -.7P3a2r-02 



COORDINATES 



X 


z 


Z-PRIME 




• 2,200 


0.0000 


0.0000 




- 2,000 


,0000 


-.0000 




- 1,800 


,0207 


.2182 




•l ,600 


.0781 


.2981 




- 1.400 


.1383 


.2935 




• 1.200 


. 1^26 


.2449 




• 1.000 


,2353 


.1307 




-.800 


.2651 


.1190 




-.600 


.2837 


.0696 




-.400 


.2939 


.0353 




-.200 


.2987 


,0140 




.000 


.3000 


-.0000 




.200 


.2987 


-.0140 




.400 


.2939 


-.0353 




.600 


.2837 


-, 069ft 




.800 


,2651 


-.1190 




1.000 


.2353 


-.1807 




1.200 


.1926 


-.2449 




1.400 


.1383 


-.2935 




1.600 


.0781 


-.2981 




1.800 


.0297 


-.2182 




2.000 


.0000 


.0000 




2.200 


0,0000 


0.0000 




ThETA 


RADIANS 


oegrees 


z 


Z-PRlMe 


- 1,152 


- 66,0000 


0,0000 


0 , 0000 


- 1 .047 


- 60.0000 


,0000 


-.0000 


-.942 


- 54,0000 


,0107 


, 19a5 


-.838 


- 48.0000 


,0386 


.3284 


-.733 


- 42.0000 


,0776 


.4081 


-.628 


- 36,0000 


,1229 


, 43Q8 


-.524 


- 30,0000 


.1683 


.4303 


-.419 


- 24,0000 


.2113 


,3861 


-.314 


- 18,0000 


.2982 


.3140 


-.209 


- 12,0000 


,276a 


.2210 


-.105 


- 6,0000 


, 29ao 


.1140 


.000 


.0000 


,3000 


-.0000 


.105 


6.0000 


.2940 


-.1140 


.209 


12,0000 


.2764 


-.2210 


.314 


18,0000 


.2482 


-.3140 


.419 


24.0000 


.2113 


- . 386 1 


.524 


30,0000 


,1683 


-.4303 


.628 


36.0000 


.1224 


-.4398 


.733 


42,0000 


.0776 


-.4081 


.838 


48,0000 


,0386 


-.3284 
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.942 


sa.oooo 


.0107 


1*45 


i .047 


60,0000 


.0000 


.0000 


1.152 


66.0000 


0.0000 


0,0000 



SUM OF SQUARES OF Pnise DISTORTION 3 .13638E+02 
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APPENDIX A 

PROGRAM FLOW CHARTS AND FORTRAN VARIABLES 
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COPES /CONMIN FORTRAN ROUTINES 



FORTRAN PURPOSE 

ROUTINE 



COPES 


CONtrol Program for Engineering ^Synthesis . This is the main 
program which organizes all design and analysis operations. 


COPEOl 


Reads COPES input data. 


COPE02 


Controls optimization process. 


COPE03 


Calculates objective and constraint functions in the form 
required by CONMIN and performs data transfer operations. 


COPE04 


Controls sensitivity analysis process. 


COPE05 


Prints sensitivity results. 


COPE06 


Controls two-variable function space analysis process. 


COPE07 


Prints two-variable function space analysis results. 


ANALIZ 


User supplied subroutine for analysis of the problem under 
consideration. 


CONMIN 


Control routine for CONs trained function MINimization. 


CNMNOl 


Calculates gradients by first forward finite difference. 


CNMN02 


Calculates search direction by Fletcher-Reeves Conjugate 
Direction Method. 


CNMN03 


Solves one-dimensional search for unconstrained problems. 


CNMN04 


Finds the minimum of a function by polynomial interpolation. 


CNMN05 


Calculates search direction by Zoutendijk's Method of Feasible 
Directions . 


CNMN06 


Solves one-dimensional search for constrained problems. 


CNMN07 


Finds the zero of a function by polynomial interpolation. 


CNMN08 


Solves the direction-f inding sub-problem in Zoutendijk’s Method 
of Feasible Directions. 
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FXY34 [ * lGELIM2] 
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LASER TURRET ANALYSIS FORTRAN ROUTINES 

FORTRAN PURPOSE 

ROUTINE 



ANAL 1 2 


Control routine for turret analysis. 


BCOND 


Determines the dependent coefficients of the polynomial shape 
functions to satisfy the geometric boundary conditions. 


BESJ 


Calculates the J Bessel functions. 


BESK 


i 

Calculates the K Bessel functions. 


BESY 


Calculates the Y Bessel functions. 


CPPRNT 


Prints perturbation velocities and pressure coefficient. 


DOPL 


Calculates the change in optical path length along a ray. 


FCOEF 


Calculates and saves coefficients for Fourier Series approximation 
to the turret geometry. 


FXTOK 


v 

Calculates the Fourier coefficients of X . 


FXY3A 


Fits a surface approximation to a three or four cornered segment 
of phase distortion within the laser beam. 


GELIM2 


Solves a set of linear simultaneous equations using Gausian 
elimination with pivot search. 


IZERN 


Calculates Zernicke functions for a prescribed section of the 
laser beam. 


PHDIST 


Calculates phase distortion. 


PHIUV 


Calculates potential and perturbation velocities. 


PHUVNM 


Calculates n,ra component of potential and perturbation velocities. 


REFIND 


Calculates index of refraction. 


RMBINT 


Romberg improvement of trapezoidal rule integration. 


RSURF 


Calculates radial coordinate, R, of the turret surface, given 
X and 9. 


SLOPE 


Calculates the slope of the turret surface in the streamwise 
direction. 
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LASER TURRET ANALYSIS FORTRAN ROUTINES - CONCLD. 



FORTRAN PURPOSE 

ROUTINE 



SRFINT 


Calculates the distance along a ray from the mirror to the turret 
surface. 


SURPRT 


Prints the coordinates defined by the geometric shape functions, 
f(X) and f (9) . 


TINPUT 


Reads laser turret analysis input. 


TRAP2N 


Numerical integration using trapezoidal rule. 


XRTPOB 


Calculates the polar coordinates, X, R and 9 of a given point on 
a ray. 


ZERN 


Calculates the definite integral of the Zemicke coefficients. 


ZINT 


Calculates the indefinite integral of the Zemicke coefficients. 
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FORTRAN VARIABLES COMMONLY USED IN LASER TURRET ANALYSIS PROGRAM 



TURRET 



ABAR(I) 

ACL 


1-1 coefficient of polynomial in x-direction. 

Half spacing of periodic turret for Fourier series approximatioi 


AL 


Turret half length. 


AMX(I,m) 


Fourier a-sub-m coefficient on 1-1 power of x. 


ANT (I , J) 


Fourier a-sub-n coefficient (J=n-HL) on 1-1 power of x. 


BMX(I,m) 


Fourier b-sub-m coefficient on 1-1 power of x. 


BBAR(I) 


1-1 coefficient of polynomial in 9-direction. 


EPS 


Turret height relative to fuselage radius at x = 9 = 0. 


MMAX 


Maximum number of m-terms in Fourier expansion. 


NMAX 


Maximum number of n- terms in Fourier expansion. 


NTHBC 


Number of f and f f pairs of boundary conditions imposed 
on geometry in 9-direction. 


NXBC 


Number of f and f f pairs of boundary conditions imposed 
on geometry in x-direction. 


R 


Radial coordinate measured from centerline of fuselage. 


RFUS 


Fuselage radius (meters) . 


SLOPEX(I) 


Turret slope at various x-locations for 9- =* 0. 


THETA 


Angular coordinate measured from the vertical axis. 


THMAX 


Turret half angle. 


X 


Coordinate along fuselage centerline. 



YYPXBC(I,J) f and f' boundary conditions in x-direction. J = 1 is 
x location, J = 2 is f boundary condition and J = 3 is 
f* boundary condition. 

YYPT3C(I,J) f and f' boundary conditions in ©-direction. 
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MIRROR 



GAMMA 


Elevation angle measured from horizontal plane. 


GAMMAI(I) 


Angle GAMMA for I-th beam orientation. 


PHI 


Azimuth angle measured from negative x-axis. 


PHII(I) 


Angle PHI for I-th beam orientation. 



BEAM 




A 


Intercept of a ray with the turret surface. 


B 


Upper limit for phase distortion calculations along a ray. 


ETA 


Angular point from local z-axis to a point on the beam. 


ETAI(I) 


ETA for I-th beam element. 


NBEAM 


Total number of beam orientations considered. 


NETAI 


Number of values of ETA used in phase distortion calculations 


NRBI 


Number of values of RB used in phase distortion calculations. 


RB 


Radial distance from beam centerline. 


RBI(I) 


RB for I-th beam element. 


WGHTI(I) 


Weighting factor for importance of the I-th beam orientation. 


Y 


Y-coordinate of a point on the beam. 


Z 


Z-coordinate of a point on the beam. 
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AERO - OPTICS 



AKPRIM 


k f in phase distortion relationship. 


AMACH 


Mach number. 


AMACHI(I) 


Mach number for I-th beam orientation. 


BETA 


ABS (1 - AMACH** 2) 


CP 


Pressure coefficient. 


DENGAM 


Exponent in pres sure- density relationship. 


DENTRO 


Ratio of external air density to sea level air density. 


PDISTI(I) 


Phase distortion if I-th ray. 


PHIPP 


Potential function. 


RINDEX 


Index of refraction. 


SUMPD2 


Sum of squares of phase distortion. 


T(I) 


Trapezoidal rule or Romberg integration for phase distortion. 


TDENRT 


Ratio of internal turret air density to sea level air density. 


U 


Axial perturbation velocity. 


V 


Radial perturbation velocity. 


WAVEL 


Wavelength of laser beam. 
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ARRAYS USED IN LASER TURRET ANALYSIS PROGRAM AND THEIR REQUIRED DIMENSIONS 



ARRAY AND REQUIRED DIMENS ION (S) 
ABAR (MAXK+1 ) 

AMACHI (NBEAM) 

AMX (MAXK+1 , MMAX) 

AN (MAXK+1) 

ANT (MAXP+1 , NMAX+1 ) 
BBAR(MAXP+1) 

BMX (MAXK+1, MMAX) 

BN (MAXK+1) 

ETAI(NETAI) 

GAMMAI (NBEAM) 

PDISTI (NRBI*NETAI) 

PHI I (NBEAM) 

RBI(NRBI) 

SL0PEX(30) 

T(KTRAP+1) 

TITLE (20) 

WGHTI (NBEAM) 

YYPTBC (NTHBC , 3) 

YYPXBC (NXBC , 3) 



ACTUAL DIMENS ION(S) IN PROGRAM 
ABAR (20) 

AMACHI (30) 

AMX(10,15) 

AN(10) 

ANT (10 , 15) 

BBAR(20) 

BMX(10,15) 

BN(10) 

ETAI (16) 

GAMMAI (30) 

PDISTI (200) 

PHII (30) 

RBI (10) 

SLOPEX(30) 

T (10) 

TITLE (20) 

WGHTI (30) 

YYPTBC (10, 3) 

YYPXBC (10 , 3) 
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APPENDIX B 
PROGRAM LISTING 
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o o o o ro o o o — o oooooooooooo ooo 



COPES - * CONTROL PROgR*m FOR ENGINEERING SYNT h ESiS 



SEPT, 77 



I*****************************! 

copes » control program for engineering synthesis. 

i************************************************* 

COMMON /Cmmn 1 / IPRlNT,NDV,ITMAX,NcON,NSIDE,ICNDIR,NSCAL,NFDG,FDCH, 
' 1FDCHM,CT*0 TMIN,CTL,CTLMIN, The T a , PHI * N* c * DELFUN , o AflF UN , L I N08J , I TRm, 
21 TER, INFOr, TGOTO, INFO, 08 J 
Common /CoPESl/ ATI TLE ( 20 ) 

COMMON /CnPpS?/ RA ( 5000 ), IA(JOOO) 

common /Copes v sgnopt.ncauc, iobj,nsv,nsobj,ncona,n2vx,m2vx,n2vy,m 

12VY,N2VAR # IPSENS, IP2VAR, I P08G , N ACM X 1 , NO V T 0 T , L0C R ( 25 ) , LOC I ( 25 ) , I SCR 
*1 * ISCR2 

COMMON /G| OflCM/ ARRAY(lSOO) 

8Y G. N, vanDERPLAATS OCT., lR7a, 

NaSA-amES RESEARCH CENTER, MOFFETT FIELD, CALIF. 

NCALC OPTtonS: 

0. Rtio ALL INPUT and STOP. 

1. SINGLE PASS ANALYSIS. 

2. OPTIMIZATION. 

3. SENSITIVITY - Z = F ( X ) . 

u, Tw n variable function space - z = fcx,yj. 






Input 



dimensions of arrays array, ra and ia. 

NARRAY=15flO 
NQRAs 5000 
NDI AsiOOO 

«eao general synthesis control Input, 
continue 

scratch t; p f numbers, 

I SC R 1 =20 
ISCR2=aO 

Call COPEnt (RA, IA,NDRA,NDIA) 

IF (NCALC* LT .0) GO TO 1 40 

check to Insure storage requirements do not exceed 

DIMENSIONpp, SIZES OF ARRAYS Ra ANf) IA, 

nor a i =locr c 2 ^ ) 

NDIAi=L0Ct(?5) 

IF (NDRAl^LE.NDPA.AND.NOIAl .LE.NDIA) GO TO 20 
WRITE ( 6 , 15 O) NDRA,NURAl,NOIA,NDlAl 
GO TO 140 
CONTINUE 

READ USER INPUT, 

ICALC=1 

Call ANALT7C ICALC) 

IF (NCALC* lF.OI GO TO 10 



EXECUTION 



IF(NCALC,n E# 2) go to 50 



10 

20 

50 

40 

50 

60 

70 

60 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

3**0 

350 

360 

370 

380 

390 

400 

410 

420 

430 

aao 

450 

460 

470 

480 

490 

500 
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copes - a control program for engineering stnthEsis sept, 77 



c 

c 

c 

c 


IF ABS(<(T)).GT.O over-ride 
OPTIUTZA rjoN. 


USER INPUT 


OF Of C I S ION VARIABLES FOR 


510 
sao 
530 
54 0 




00 uo 1=1 NOV 






550 




XX=ARS(RA, r ) ) 






560 




IF (XX. LT 1 .06-10) GO TO 40 






570 




N5=L0CR(5) 






560 




M2=L0CI (2, 






590 




00 JO j=i.novtot 






600 




NNt=IA (M2> 






610 




M 2= M 2+ 1 






620 




IF (NN1 ,Np x) GO TO 30 






630 




NN1=IA(J) 






640 




ARRAY(NN1 1= PA(I)*RA(NS) 






650 


30 


N5=NSt J 






660 


40 


CONTINUE 






670 


50 


CONTINUE 






680 




IF(NCALC.me.3) GO TO 70 






690 


c 








700 


c 


transfer nominal values of 


SENSI Ti VI TY 


VaPIa8LES to array. 


710 


c 


— * 






720 




M6=L0CI (6> 






730 




M7=L0c I ( 7 1 






740 




00 60 1=1 .NSV 






750 




N= I A ( M 7 ) 






760 




M7=M7+1 






770 




NNs I A ( M6 ) 






780 




H6 = M6+ t 






790 


60 


ARRAY(NN)-paIN) 






800 


70 


Continue 






810 




IF (NCaLC.rT.4) GO to 140 






820 




GO TO (SO on, 120, 1 JO) , NCaLC 






830 


c 


_ 






84 0 


c 


ONE ANALYSIS 




850 


c 








860 


60 


ICALC=2 






870 




call analt?(Icalc) 






880 




ICALCsJ 






890 




call analtz(IcalC) 






900 




GO TO lO 






910 


c 


* 






92 0 


c 




OPTIMIZATION 


930 


c 








940 


90 


continue 






950 




N2sLOCH(2 1 






960 




N JsLOCH ( J i 






970 




N4sL0CR(4 1 






980 




00 loo 1=1, NOV 






990 


c 


X-VECTOR. 






1000 
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Copes • * control program for engineering synthesis 



SEPT. 77 



M2*LOCI(2) 1010 

00 91 Jsl.NDVTOT 1020 

Ns I A ( m2) ' 1030 

H2sM2+l 1090 

IF(N.NE.I) GO TO 91 1050 

N5sLOCR(5)+J-l 1060 

NsIA(J) 1070 

RA(I)sAHRir(N)/RA(N5) 1080 

GO To 9 2 1090 

91 CONTINUE 1100 

92 CONTINUE 1110 

N2=N2+i 1120 

NSsNj+l 1130 

100 NOsNiUl 1 1 a 0 

C Initial Anai ysis. 1150 

C DESIGN VAqiaHLE values. 1160 

H2sL0CI(2) 1170 

NS=L0CR(5) 1180 

00 111 Is^NOvTOT 1190 

Ns I A ( M2 ) 1200 

MsIA(I) 1210 

ARRAY(M)s pa( N)*RA(N5) 1220 

N 5 s N 5 ♦ 1 1230 

111 H2=M2+i 1290 

c analize Initial design, 1250 

I C A LC s 2 1260 

CALL ANALiZI ICALC) 1270 

C OUTPUT INITIAL DESIGN, 1280 

ICALCsi 1290 

CALL ANALiZI ICALC) 1300 

C OPTIMIZATION. 1310 

call COPEnz (array, ra, ia,naRRay,ndRa,noIa) 1320 

C OUTPUT FINAL DESIGN. 1330 

ICALC=3 1390 

call analtz(Icalc) 1350 

GO TO 10 1360 

C 1370 

C SENSITIVITY ANALYSIS 1380 

C ... 1390 

120 Call COPEnu ( aRRA Y , RA , I A , naRRA Y , H pRA , no I A ) 1900 

C OUTPUT RESULTS. 1910 

Call COPE05 (ra, ia,ndra,ndia) loio 

GO TO 10 1930 

130 CONTINUE 1990 

c .... .... ......... ... ... 1950 

C Two variable FUNCTION space I960 

c ; 1970 

CALL COPErtfc (ARRAY, RA, I A , NARW A Y , N[)RA , NO I A ) 1980 

c output Results. 1990 

CALL COPEfl 7 (RA,IA,NDPA,N0IA) 1500 
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COPES - A CONTROL PROGRAM FOR ENGINEERING SYNTHESIS SEPT, 77 

GO TO 10 ' 1510 

100 CONTINUE 1520 

RER I NO ISrRt 1530 

Rewind ISpR? . I Sao 

STOP 1550 

...... ....... .... 1560 

FORMATS 1570 

......... ............. 156 0 

150 FORMAT 60HREQUIREO STORAGE FOR ARRAY RA OR IA EXCEEDS DIMENS 1590 

HONED SIZF/5X,5HARRAY,2X,Qh0IMENSlUN,?Y,aHRE ( JUlRED/7X,2HRA,l8,6X,l 1600 

25/7X, 2hIA , j8, 6 X» i5//5x,22h* » PROrRAm TERMINATED) 1610 

END 1620 
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subroutine copeoi 



SEPT, 77 



subroutine copeoi (ra, i*,nora,nojo 

COMMON /Cmmn 1 / IPRINT ,NOv, IT max, NCON, nSIOE, ICNOIR, NSC*L, NFDG, FDCH, 
1F0CHM,CT#etmIN,CTL,CTLMIn,THETa,PhI»NaC» OElFUN,OABFUN, LI nOBJ# I TRm, 
2 i ter, infur, i go to, info, obj 

COMMON /CnPFSt / AT ITtF (2 o) 

COMMON /CnPES 3 / SGNOPT,NcALC,I OBJ , NSV , NSOB J , NCON A , N? V X , m 2 V X , N2 V Y , M 
12VY»N?VAR,iPSENSrIP2VAK,|POBG,N4CMXl,NOVTOT,LOCRC25), LOCl(25),ISCR 
*1 » ISCR2 

OIMENSIONra(NORA), IA(nDI A),CC( 10) , TITLE (20) 

OAT* STOPl /I HS/»ST oP 2/ 1HT/ , STOP 1/1 HO/, STOP«/lHP/, S TOPS/ «HS TOP/ 

DATA EN01 >i HE/,EN02/lHf4/,END3/iHO/ 

Data COM/^Ht/.COMMA/lHj/.aiANK/lH /,2FR0/1H0/ 



ROUTINE Tn REaO CONTROL INPUT for copes. 



r *ft*******+*4 






0Y G , N, vanOE«PLAATS MaR,, 1973* 

NASA-AMES RESEARCH CENTER, MOFFETT F I ECO , CAllF, 



REAO CARO IMAGES AND STORE ON UNIT I SC R2 , STORE ON UNIT ISCR1 
C WITHOUT Comment c a R0S 

c 

REWIND iSrRl 
REWINO IS C 92 
NCAPDS=0 
LOCI (25)=o 
NCOMsO 

2 Format (80ai) 

I C A R 0 = 0 

10 REA0(5,2)}RA(I), 1*1,80) 

ICARD=ICAro+1 

IFORMsO 

C IS This The TITLE CARO or a comment CARO? 

IF(RA(l).FO.COM t OR.NCOM.EQ # 0) GO TO 27 

IF ( r A ( 1 ) ,rO.£NUl , ANO. (RA(2) .EQ.ENQ2, ANO,«A (3) .E0.EN03) ) GO TO 27 
c Unrorm a t r p-p input check* u se ra for temp, storage* 

C CHECK FOR FORMATTEO INPUT* 

00 25 Jsl.ftO 

IF(RA(J) .FO, COMMA) GO TO 26 
I F ( R A ( J ) * FQ . COM ) GO TO 27 

25 CONTINUE 

27 CONTINUE 

1 FORMS 1 

I F ( R A C l ) . NF.COM) NCONsl 

C NO COMMA FOUND* This data IS ALREAOY formatted* 

00 21 J=1,A0 
21 Ra(J*AO)=pa(J) 

GO To 18 

26 CONTINUE 
ICARpsICApn+1 

C bLANK 8-V FCT 0R* 



10 

20 

30 

ao 

50 

60 

70 

80 

90 

100 

110 

120 

130 

lao 

150 

160 

170 

100 

190 

200 

210 

220 

230 

290 

250 

260 

270 

200 

290 

300 

310 

320 

330 

390 

350 

360 

370 

300 

390 

900 

910 

920 

930 

990 

950 

960 

970 

980 

990 

500 
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SUBROUTINE COP E 0 1 



SEPT. 77 



00 ll 1*1,00 510 

11 RA(I+80)= rl 4 Nk ' 520 

C CONVERT UNFORMATTED TO FORMATTED. 530 

12=10 540 

L I = 1 ’ 550 

00 12 1=1,8 560 

C BLANK hORkinG VECTOR, CC. 570 

DO 1 3 J=1 , l 0 5B0 

13 CC ( J ) sBLAmk 590 

C PUT FIELD { IN CC, 600 

K=0 . 610 

NFLGsO 620 

DO 14 J = L T , SO 630 

JJsJ 640 

C IGNORE LE * o T NO BLANKS, 650 

IP ( R A (J) ,F0. BLANK .AND, K .LT . 1 ) GO TO la 660 

C CHECK FOR comma, 670 

IF(RA( J) ,F0. COMMA) GO TO 16 680 

C CHECK FOR COMMENT. 690 

IF(RacJ) .FO.COM) GO TO 17 700 

K = K + l 710 

iF(K.LE.lft) GO TO 29 720 

A=K-1 730 

IF(NfLG.Gt.O) GO TO 14 740 

hR1TE(6,2«)(RA(L),L=1»80),I,(CC(L),L=1,10) 750 

28 FORMAT (/5t, 37H* * INPUT FIELD EXCEEDS 10 CH aRA c TERS/5X , 760 

* 1SHCARD INPUT IS/5X.80A1/5T, 17HERR0R IS IN FIELD, 15/5*, 770 

* U5HFIRST | o N0N-8LANK CHARACTERS are RETAINED AS,2X, 10A1/5X, 730 

* 24 H RESULtS MXX NOT BE VALID) 790 

NFLG=l 800 

GO TO 14 810 

29 CC(K ) sPi(;i ) 820 

14 CONTINUE 830 

GO TO 18 840 

17 CONTINUE 850 

c comment found, store beginning in field i or in actual location, e&o 

c WHICHEVER is GRENIER. 870 

11=12-10 880 

IF ( 1 1 ,LT,.jj ) 1 1 = J J 890 

11=11*1 900 

DO 19 j=jf,79 910 

IF(U.GT.AO) go TO 18 920 

RA ( I l +80 ) = RA ( J* 1 ) 930 

19 IlsI i + l 940 

GO TO 18 950 

16 CONTINUE 960 

C STORE CONTENTS OF CC IN 8, RIGHT JUSTIFIED, 970 

L I = J J + 1 980 

Jl=l2+60 990 

DO 22 J*1 . 10 1000 
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SUBRqUTInf copeoi 



SEPT. 77 



IF(K,EO.O) r.o TO 23 1010 

IF(CC(K).fo. Blank) CC(K):ZER0 1020 

RA(Jl)sCCfK) 1030 

J i = J i • i iooo 

22 K:K»t 1050 

23 CONTINUE 1060 

12=12+10 1070 

12 Continue loao 

C CHECK TO see IF nORE Than 8 FIELDS OF INPUT aHE CONTAINED ON THIS 1090 

C CARO. IF YfS , PRINT ERROR MESSAGE. 1100 

IFCLI.GT.ao) C.O TO 10 1110 

00 32 J=Lt,80 1120 

IF(RA( J) ,FO. COMMA) GO TO 33 1130 

I F c R A ( J ) .FO.COM) GO TO 18 1 1 a 0 

32 CONTINUE • 1150 

GO TO IS 1160 

33 WRITE(6,3a)(RA(J),J=l ,80) 1170 

30 FORM* T ( /5y , 5 1 H* * INPUT OATA CARD CONTAINS MORE THAN EIGHT FIELDS/ t t » 0 

» 5X , 1 3hC Apq Input lS/5x,S0Al/Sx,2aHRESULTS MAY not Be VALID) 1190 

18 CONTINUE 1200 

IFCRAcn.NE.COM) WRI TE ( ISCR1 ,2) CRA c I ) , 1 = 81 , 1 60) 1210 

NCaR0S=nCaroS+1 1220 

IF c CRA C 1 )^EO.SIOP1 . AN0.RAC2) .EO.ST0P2 ) .and, cR*C3) .E0.ST0P3 .anD. 123 0 

* RAC4) .EO.STOPU)) GO TO 20 1240 

RRITE C ISCP2.41 jnCARDS, (RaC I), 1=1 ,S0) 1250 

IFcIFORm.eq.O) wHITEClSCR2,at)NCARDS,cR*Cl),I=81,60) 1200 

41 FORMAT! I5>S0At ) 1270 

IF C^AC 1 ) .FO.ENDl . ANO. CRA c2) .E0.EN02. AN0.RAC3) .EQ. EN03) ) GO TO 20 1260 

GO To 10 1290 

20 REWINO ISeri 1300 

REWlNO ISrR2 1310 

C 1320 

C GENERAL SYNTHESIS INFORMATION 1330 

C ......... 1... — .................. — ...... .... — ................ 1340 

c title. _ 1350 

c .... OATA BLOCK a. 1360 

READ (I SC 61,750) CATITLEcD, 1 = 1,20) 1 370 

NCALC=-1 1380 

iFcATITLEfi). EG. STOPS) RETURN 1390 

c control Parameters. noo 

c .... DATA BLOCK B. 1410 

READ Cl SC 61, 770) NCALC,NDV,NSV,N2VAR, IPNPUT, IPSENS, IP2VAR, IPDBG 1420 

IF CNCALC'.LT.O) RETURN 1430 

IF c IPNPUt. G l . 1 ) GO TO So 1440 

wRITfc ( 6 , 540 ) laSo 

WRITE ( 6 , 550 ) 1460 

WRITE (6,560) (ATITLE(I), 1=1,20) 1470 

C .......... ................................................... 1400 

C CARD IMAGE PRINT 1490 

C 1 .................. .... 150 0 
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SUBROUTINf copeoi 



SEPT. 77 



IF ( IPNPUt.GT.O) GO TO a 0 1510 

WRITE (6,a30) 1 520 

write (6,aao) 1530 

00 Jo 1:1, ICARD 1500 

«EA0( ISCRj, al JNCARDS, (RA(J) , J=1 ,80) 1550 

30 WRlTE(b,a^o)NCAADS,(KU(J),J=l,eO) 1560 

Rewind istr? 1570 

«0 CONTINUE 1580 

WRITE (6,^70) (ATITLE(I). 1=1*20) 1590 

WRITE (6,RR0) NCALC,NDV,NSV,N2VAR, IPNPUT, JPSENS, IP2VAR, IPOBG 1600 

WRITE (6, a 8 0) 1610 

50 NACMXtsO 1620 

NDVTOTsO 1630 

NCONA=0 1660 

NACHX?=0 1650 

IF (NDV.Lf'.O) GO TO 200 1660 

— : — 1&70 

OPTIMIZATION INFORMATION 1680 

169 0 

OPTIMIZATION CONTROL VARIABLES. . CONMIN DEPENDENT, 1700 

- DATA BLOck C. 1710 

Read (iscoi.770) iprint,itmax,icndir,nscal,itrm,linobj,nacmxi,nfdg 1720 

- DATA BLOck 0. 1730 

Read (ISCri,7«0) FDCH,FDcHM,CT,CTMIN,cTL,CTLNIN, Theta, phi, DELFUN.D 1760 

1A8FUN 1750 

- data BLOck E. 1760 

total no. of D. V,, OBJECTIVE global number, sign 1770 

ON 0PTIMI7UI0N OBJECTIVE, 1780 

Read (iscpi,<i60 ) ndvtot, iobj, sgnopt 1790 

IF (NDVTOt.lT . NOV) NUVTOT=NDV 1800 

IF(NACMXl',LE.O) NACMX1=NDV*2 1810 

if (ipnput. ge. 2) go to 60 laao 

IF (ABS(SonOPT) .LT. t .OE-10) SGNOPT s- 1 , 1830 

WRITE (6,630) I OB J * SGNOPT I860 

WRITE (6,310) 1PRINT, ITM A X, ICNDIR.NSCAL, I TRM , L I NOB J , NACMX 1 ,NFDG 1850 

WRITE (6,320) FDCH,FDCHH,CT*CTMIN,CTL,CTLMIN, ThETa, PHI, DELFUN,DABF 1860 
1UN 1870 

60 N2=NDV+3 1880 

N3=N2aNDV; 2 1890 

Na=N3 + NDV^2 1900 

C -«-» DaTa BLOck E. 1910 

C DESIGN VArjaBLE INFORMATION, LB, UB, INITIAL VALUE, SCAL. 1920 

IF (IPNPUT. Li .2) write (b,6«0) 1930 

N5=Na+NOv; 2 I960 

IF (N5.LE*. nDRA) GO TO 70 1950 

WRITE (6,330) I960 

WRITE (6,300) 1970 

UOCR(25)Sn5 I960 

GO To 300 1990 

70 CONTINUE 
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NS I DE*0 2010 

00 80 1=1 .NOV 2020 

READ ,(ISC»i, 620) RA (N2),RA(N3),RA(I),RA(N«),( TITLE! 2030 
IF(RA(N2 )' ct,. 1 ,OE+lb.OR,RA(N3) ,LT, 1.0E+15) NSlOEsl 2000 

IF(RA(N2) , lE.-1 , OE 1 1 5 ) Ra(N 2)=-1 . iE + 15 2050 

IF(RA(N3) GE.1.0E+15) RA(N3)=1, IE+15 20o0 

IF (IPNPUt.lT.2) write (6,650) I , R A ( N2 ) , R A ( N3) , R A ( 1 ) , R A ( NO ) , ( T I TUE 20 70 
l(J)»Jsl,5) 2080 

N? =N 2+1 2090 

N3=N3+1 2100 

NosNu+i 2110 

80 CONTINUE 2120 

C — — DATA BLOrK G. 2130 

C 0. V. NO.. GLOBAL LOCATION, MULTIPLYING FACTOR, 2100 

IF (IPNPUt.lT.2) WRITE (6*500) 2150 

N5sO*nOV+q 2160 

M2=N0VTOi;i 2170 

N6 = N5 + N0V tot 2180 

M3=M2+NOV^OT 2190 

IF (N6 .LE'nORA) GO TO 90 2200 

WRITE (6,330) 2210 

WRITE (6*350) 2220 

. LOCR (25 ) =n5 2850 

GO TO 300 2200 

90 CONTINUE 2250 

IF (M3.LE'noIA) GO TO 100 2260 

WRITE (6,360) 2270 

WRITE (6,3S0) 2280 

LOC I ( 25 ) =n3 2290 

GO TO 300 2300 

100 CONTINUE 2310 

DO 110 I = I , nDVTOT 2320 

Read (ISCri,4Q0) I A (M2) , IA ( I ) ,RA (n5) 2330 

IF(abS(Ra ( n5) ).LT. 1.0E-20) Ra(m5)s1,0 2390 

IF (IPNPUt.lT.2) white (6,510) I , I A ( M 2 ) , I A ( I ) , R A ( n5 ) 2350 

M 2 = M 2 + 1 2360 

NS=NS+1 2370 

110 CONTINUE 2380 

NCONsO 2390 

C — — DATA BLOck H. 2000 

C NUMBER OF CONSTRAINT SETS, 2910 

RE AO (ISCoi,«90) NCONS 2920 

IF (IPNPUt.lT.2) WHITE (6*670) 2930 

IF (IPNPUt.lT.2) white (6,680) NCONS 2aa0 

IF (NCONS'fQ.O) GO TU 200 2950 

IF (IPNPUt.lT.2) write (6*690) 2960 

N6=9*N0V+n0VT0T+9 2970 

M3=2*NOVToT* 1 2980 

«9=2*NOVTnT *NC0NS 2990 

M9A=M9+1 2500 
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L*1 ' 2510 

C — — DATA BLOck I. 2520 

NCONa=0 2530 

00 17.0 I*T,NCONS 25ao 

NNN=N6+3 2550 

IF (NNN.Gt.nDRA) GO TO 180 2560 

C GLOBAL no' 1, GLOBAL NO. 2, LINEAR CONSTRAINT 10. 2570 

READ(ISCRt,770) 1C0NI , JCONI ,LCONI 2560 

C LB, NORM, ur, NORM, 2590 

REAO(lSCRj,78o)(RA(J),J=N6,NNN) 2600 

IF(RA(N6),LF.-1.0E+15) «A(N6)=-I. IE+15 2610 

IF(RA(N6+ ?) .GE. 1 .0E + 1S) RA(No + 2) = i .1E+15 2620 

IF (Ra (N6+i) .LT , 1 . 0E-20) RA(Nb+l ) = aBS(RA(N 6) ) 2630 

lF(RA(N6>i).LT.O. 1 ) RA(N6+1)S0.1 2690 

IF(RA(N6 + -; 1 ,LT, 1 ,0E*20) R A ( N6+ 3 ) = AbS ( R A ( N6+ 2 ) ) 2650 

IF (RA (N6 + ^) ,LT . 0 . 1 ) RA(N6 + 3)=0, 1 2660 

c number of variables in this set. 2670 

NVaRsJC0n}_iCONT+1 2660 

IF (NVAR.it, 1) N V A R: 1 2690 

NCONAsNCOnA+NVAR 2700 

C HOW MANY CONSTRAINTS? 2710 

Jl=0 2720 

IF (PA(N6, ,gE.- 1 .0E+15) Jl=l * 2730 

IF(RA(N6+?).LT. 1,06+15) J!=J1+1 2790 

NCONisJi + MV a r 2750 

NC0NsNC0n;nc0mI 2760 

IF (Jl.EQ'.O) GO TO 1 30 2770 

C ADD LINEap CONSTRAINT IDENTIFIERS TO TSC. 2780 

00 120 J=i,NCONI 2790 

M9=M« + i 2800 

MMM=M9 2810 

IF (MMM.Gt.NDIA) GO TO 190 2820 

120 I A ( M4 ) sLCcin I 2830 

130 CONTINUE 2890 

C ADD LB, Ur and SCAL TO BLU IF NVAR.GT.l, 2850 

IF (NVAR.pq.I) GO TO 150 2860 

NVAR 1 sNVAp_t 2870 

DO 190 J=i,NVAR] 2880 

NNN=N6+7 2890 

IF (NNN.Gt.NORA) GO TO 180 2900 

RA(N6+4)=9A(N6) 2910 

RA(N6+5)=PA(N6+1 ) 2920 

Ra(Nb+o) = ra(N6+2) 2930 

«A(N6+7)=pA(Nfe+3) 2990 

N6SN6+9 ' 2950 

190 CONTINUE 2960 

150 CONTINUE 2970 

C AOD CONS TpaiN£D VARIABLE global IDENTIFIERS TO ICON, 2980 

ICONlelCOwl 2990 

00 160 J s 1 , N V AR 3000 
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MMM=H3 3010 

IF (MMM.Gt.nDIA) GO TO 190 3020 

lA(MJ)=ICnNl 3030 

ICONjsICOwi+1 3090 

IF(J.EQ.I) r,0 TO 160 3050 

C SHIFT ISC VECTOR. 3060 

L 1 =H« ♦ I 3070 

L2 = M« 3060 

00 165 K=moA,MU 3090 

lA(U) = I*fL2) 3100 

Ll=l. l-l 3110 

165 L2=L2-1 3120 

MOsMO+l 3130 

MUA=MUA+t 31R0 

160 M3 = M3,i 3 1 0 

IF (IPNPUj 4 LT.2) WRITE (6,660) l , I CON I , JCON I , L CON I , R A ( N b ) , R A ( N6* 1 ) 3160 

1,Ra(N6+2) ,Ra(N6+3) 3170 

N6=N6+4 3160 

LsNCON+1 3190 

170 continue 3200 

IF ( IPnPUt.lT.2) WRITE (6,970) NCONA 3210 

GO TO 200 3220 

180 WRITE (6,330) 3230 

WRITE (6,370) 3290 

L0CR(?5)=mnn 32S0 

GO TO 300 3260 

190 WRITE (6,360) 3270 

WRITE (6,370) 3280 

LOCI (25)=hmm 32 90 

GO TO 300 3300 

200 continue 3310 

NSO0J=O 3320 

NSVTOTsO 3330 

C STARTING i'ocaTIONS FOR SENSITIVITY INFORMATION, 3390 

NSVR = U«N0v + nDVT0T + <j*nC0Na+9 3 350 

NSVls2*(NnV,Nc0NA) + 2«N0VT0r+NCUNA + l 3360 

IF (NSV.Lf 0) GO TO 290 3370 

-1 ... ....... ......... 3380 

SFNSlTJVITY INFORMATION 3390 

— .;... — ..... 3900 

IF (IPNPUt.lT.2) "RITE (6,590) 3910 

C — — oaTa BLOpK J, PART 1 . 3920 

C NSOBJ, 3930 

REAO (ISCoi ,770) NSOBJ 3990 

C — DATA BLOck J, PART 2, 3950 

C NSENSZ. 3960 

M5=NSVI 3970 

MM5=M5tNSnRJ-l 3980 

IF (MM5 ,Lf , NO I A ) GO TO 21 0 3990 

WRITE (6,T60) 3500 
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WRITE Cbr^fio) 

LOCI (25)=MM5 
GO TO 300 
210 CONTINUE 

HEAD (I$Cqi,770) ( IA(I) , I=M5,MMS) 

IF (IPNPUt.L t ^2) write (6,530) NSnBJ 
IF (IPNPUt.L t .^) WRITE (6,520) ( I A ( I ) , I = M5 , mM5 ) 

IF (IPNPUf . lT.3) WRITE (6,600) 

* N7 = NSVH 

M6=NSVI+Nso0J 

M7sM6*N$V 
00 230 I=j,nSv 

C ---- DATA BLO rK K, PART 1. 

C I SENS / NSfnS. 

WFAO(ISCR?,770)IA(Mb),NNl 
NN7=N7tNNt -i 

IF (NM7*Lf. NORA) GO TO 220 
WRITE (6,^o) 

WRITE (6,-*do) 

LOCR(2S)=rn7 
GO TO 300 
220 CONTINUE 

C DATA BLOtk *, PART 2, 

C SENS, 

READ (ISCqi,780) (RA(J) , jsN7,NN7) 

I F ( I PNPUT* GE.2) GO TO 225 
JJ=N7^5 

IF ( JJ.GT.wN7) JJ=NN7 

WRlTE(6,biO)I,IA( M b) , (RA(J) , J = N 7 , J J ) 

JJsJjtl 

IF (JJ,LE*n 7) WRlTE(6,6l5)(RA(J) r J=JJ r N7) 

225 CONTINUE 

NSVTQT=NSvTOT+NN 1 
IA (M7)=N7 
N7=NN7t 1 

M6=Mfc+ 1 

*7rM7*l 

230 CONTINUE 
240 CONTINUE 
M2VX=0 
MavTsO 

IF (N2VAR' lE.O) GO TO 270 

C 1---- - 

c two-variable function space information 

c ; - 

c .... data BlOrK L. 

c variarle numbers and number of values of x ano y, 

READ (I$Cpi,770) N2VX, M2vX,N2VY # M2VY 

N8=NSVRtN SV TOT 

M8sNSVUN<;oRJ^2*NSV 






3510 
3520 
3530 
354 0 
3550 
3560 
3570 
3560 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3660 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3760 
3790 
3600 
3610 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
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250 

C - 

C 



C 

C 



c 

c 



260 



270 



C 

C 

C 

C 

C 

c 

c 



MM8=M8+N2vAR*l 






4010 


IF ( MM0 , Lf , NO T A ) GO TO 250 






«020 _ 


WRITE (6,3 6 o) 






0 030 


WRITE (6*400) 






«0«0 


LOCI (25)=mm« 






aobo 


GO TO 300 






«060 


CONTINUE 






« o 7 o 


DATA BLOrK m. 






aoso 


Global VapxaBLE NUMBERS CORRESPONDING 


TO FUNCTIONS OF X AND Y. 


a090 


RE AO ( ISCp) ,770) ( IA( I ). I=m8,mm8) 




yloo 


IF (IPnPUt.lI .2) "RITE (6,730) 






y n o 


IF (IPNPUt,lT.2) "RITE (6 , 7U0 ) 


( I A ( I ) , 


IiM8,MM8) 


yi20 


DATA BLOtk n. 






y 130 


VALUES OF x COMPONENTS. 






a luo 


NN8=N8*M2vx-1 






y iso 


IF (NN8.Gt.nORA) GO TO 260 






y 160 


READ ( 1 SCp i , 780) (RA ( I ) , I=N8,NN8) 




yi70 


IF (IPNPUt,lT,2) "RITE (6*700) 


N2VX 




y 180 


IF (IPNPUt.lT.2) WRITE (6* 720) 


( R A ( I ) , 


I=N8,NN8) 


y i9o 


DATA BLOf k 0 , 






y200 


VALUES OF y COMPONENTS. 






y2i o 


N9=N8+M2V Y 






y220 


NN9=N9+M2vY-l 






y2io 


NN8=NN9 






y2yo 


READ ( I SCr t , 78 0 ) (RA(I), t=N9,NN9) 




y250 


IF (IPNPUt.lI .2) "RITE (6,710) 


N2 V V 




y 26 o 


IF (IPNPUt.lI.2) "RITE (6,720) 


(Ra(I), 


I=N9,NN9) 


y270 


GO TO 270 






y28o 


RRITE (6,330) 






y290 


WRITE (6, aoo ) 






y300 


L0CR(25)=nn8 






y 3 1 o 


GO TO 300 






9320 


CONTINUE 






y330 


_ 






4 3tf 0 


DYNAMIC SToPAGE 


ALLOCATION 


4350 


* 






4 360 


NOV2=NOV»? 






4370 


real variables. 






4380 


X. 






4390 


LOCR ( 1 ) 3 1 






4400 


VLB. 






44 1 0 


LOCR ( 2) sNnv + 3 






4420 


vub. 






4430 


LOCR(3)iLncR(2) »NOV2 






4440 


SCAL, 






4450 


LOCR(a)sLncR(3)+NOv2 






4460 


AMULT. 






4470 


LOCR(5)=Lnc s ( a )*^DV2 






4480 


BLU. 






4490 


L0CR(6)=LocR(5)+n0vT0T 






4500 
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C SENS. 4*5 1 0 

L0CR(7)=LnCR(6)+4»NC0NA 4520 

C XM2V, 4530 

L0CR(8)=LnCR(7)tNSVT0T 4540 

C YM2V. 4550 

LOCR (9) =LnCR ( B) + M2VX 4560 

C EXECUTION lE v EL ARRAYS. 4570 

LOCRdOjsi'oCRfRj+MavY 4580 

00 280 1=11,25 4590 

280 LOCR(I)=LncR<lO) 4600 

C INTEGER VjrtabLES. 4610 

C IOSGN. 4620 

LOC I ( 1 ) = 1 4630 

C NOSGN. 4640 

LOCI (2)=N n vT0T+l 4650 

C ICON. 4660 

LOCI ( 3 ) =Lnc T (21+NOVTOT 4670 

C ISC. 4680 

LOCI f4)=LnCI ( 3 ) +NCONA 4690 

C NSENSZ 4700 

LOCI (5)=LOCT(4)*2*(NDV+NCONA) 4710 

C I SENS . 4720 

LOCI (6)=Lnc I (5) ♦NSOBJ 4730 

C NSENS. 4740 

LOCI (7)sL(lCI (6) +NSV 4750 

C NJ VZ , 4760 

LOCl(8)=LoCI(7)+NSv 4770 

C EXECUTION LEVEL ARRAYS. 4760 

LOCI (9)sLnCI (8J+N2VAK 4790 

DO 290 I=io,25 4800 

290 L0CI(I)=LnCl(9) 4810 

C STORAGE EnR CONMIN ARRAYS, 4820 

IF ( Nc ALC , m£ . 2 ) GO TO 295 4830 

NR I =NO V 4840 

IF (NACHXi^GT.NRI) NKIsNiCHXl 4850 

NRs3.NCON;a*NOV + NACMXl*(NOV2+NACMXl)+NRI+4 4860 

NIsNACMXI ;?,NRI 4870 

L0CR(25)=i oC w ( 1 0) fNR 4880 

LOCI (25)=inCl ( 9 ) tN I 4890 

GO TO 300 4900 

295 NR=NSV 4910 

lF(NS08J.r,T .NR) NRsNSOBJ 4 920 

IF(NCALC.FQ.3) L0CR(25)=L0CR( 101+nR 4930 

IF(NCALC.F0.4) LOCR(25)=LOCR( 10)+N2VAR 4940 

300 CONTINUE 4950 

IFdPNPUr L t.2 ) "»ITE(6,4lO)LOCR( 10) , LOCR (25) , NORA, LOC I (9) ,LOCI (25 4960 

*),NOlA " 4970 

Return 4930 

C 1.. ............. ..... 4 990 

C FORMATS 5000 
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C ------ - - - - 5010 

510 FORMAT (/sx. S8HC0NMIN PARAMETERS (IF ZERO, CONMIN DEFAULT WILL OvE 5020 

lK-RlOE)//«;x,&HlPRlNT,2x,SHlTMAX,3x.6HiCNDtR,iX,5HN$CAL,3x,aHITRM,3 5030 

2X,6HLlN0B.r,2X, 6HNACMX1 , 3 X , 9 HNF DG /« 1 8 ) 50U0 

320 FORMAT (/*,X, UHFDCH, !2x,5hFdchm, 1 1 x,2MCT, 10X, 5HCTMIN/1 X,U(2 x,E1R,5) 5050 

*//6X,3hCT|,1 3 X , 6hC TLMIN#10x,5wThEtA,11X,3hPhI/1X,9(2X,E19,S)// 50 6 0 

* 6X» 6H0ELPUN. 1 ox , 6H0AHFUN/ 1 X, 2 (2x,t 1 o .5) ) 5070 

330 FORMAT (/>sX,59HR£GUIRED STORAGE IN ARRAY Ra EXCEEDS AVAILABLE STO SOSO 

1RAGE) 5090 

300 FOPMaT ( / ^ x , 27 m UNABLE TO READ DaTa BLOCK F) S100 

350 FORMAT ( /px, 27HUNA8LE TO READ DATA BLOCK G) 5110 

360 FORMAT (//5X,5<4HWEQUIR£D STORAGE IN ARRAY Ia EXCEEDS AVAILABLE STO 5120 

1RAGE) 5130 

370 FORMAT (/c;x,27HUNAHLE TO READ OATa BLOCK I) 5100 

380 Format (/qx,27HUNABLE TO READ Data BLOCK J) 5150 

390 FORMAT (/sx, 27HUNA d LE TO READ DATA BLOCK *) 5160 

000 FORMAT (/px,27H(JNABLE TO READ DATa BLOCK L) 5170 

910 F0RMaT(//^x,25M0aTa STORAGE REOUI REPENTS// 1 7 X , 9HRE al , 2oX , 5180 

* 7HINTEGER/7X, 27HINPUT EXECUTION A y A I L A 8LF , 5 X , 5190 

« 27HINPUT EXECUTION AVAILABLE/1X, 3110, 2X, 3110) 5200 

920 FORMAT (A^,a2,A1 , 19A0) 5210 

030 FORMAT ( Ihi , ax,27HCARD IMAGES OF CONTROL D A T A// /5X, 9HC ARD , 20 X , SH I M 5220 

1 AGE ) 5230 

9«0 ' FORMAT ( Iho) 5200 

050 FORMAT ( 18, ih) , 2X ,80A1 ) 5250 

070 FORMAT (/px.oohTOTaL NUMBER OF CONSTRAINED PARAMETERS = , 1 5 ) 5260 

080 FORMAT (/xSX,26HCALCULaTiON control, NCALC/5X,5HVaLUE,3X,7HMEANING 5270 

l/7x» 1H1 , 5^, 1 5hS INGLE ANALYSIS/7X,ih2,5x,12mOPTIMI7aTION/7X,1h3.5x, 52S0 

2 t IHSENSI TTVITY/7X, 1Hu,5X,27HTwO-vaRIaBLE FUNCTION SPACE) 5290 

090 F0RMAT12I to,FiO,2) 5300 

500 FORMAT ( //<;X» j 6HDESIGN V a R I A 8LE S/ t j X , 5HD . V . , SX , 8HGL OB AL , « X , 1 1 HMUL 5310 

1 TlPLYING/sx, 2HlDr 5X , 3HN0, , 5X,8 hV 4 r , NO . , 5X , 6HF a C T OR ) 5320 

510 FORMAT (2t7,5X, 15, &X, £12,5) 5330 

520 format (5x,i6i5) 5300 

530 FORMAT ( /bx, 30MNUMOEK OF SENSITIVITY OBJECTIVES = , 1 5/5 X , 5 3HGL0B Al 5350 

Inumbers associated with sensitivity objectives) 53oo 

500 FORMAT ( |H1 ,//////, 5X, U7HCCCCCCC 0000000 PPPPPPP EEEEEEE S 5370 

lS$$SsS/SX.a7H C 0 0 P P E S /5X,a7 5380 

2HC 0 0 P P E S /5X,«7HC 0 5390 

5 0 pppPPPP EEEE SSSSSSS/5X, «7HC 0 OP 5000 

a E S/5X,97 hC OOP E 5910 

5 S' , 5X.07HCCCCCCC OOOOOOO P EEEEEEE SS5SSSS 5920 

' 6) 5930 

550 FORMAT (/////, 1 BX, )9HN ASA - A M e S//laX,29HC 0 N T R 0 L P 5990 

1 R 0 G R a M//26X,5HF 0 R//8X,9lHE ngINEERING SYNTH 5950 

2 E S I S) 59P0 

560 FORMAT ( /////?9X ,9HT I T L F//5X,20A9) 5970 

57 0 FORMAT (1h),9X,6hTITLF:/5X,20A9) 5980 

58o format (/>/sx, iqhcontrol parameters; /sx, 92hcalcula t ion control/ 5990 

1 NCALC S, I5/5x,92hNUM8eR OF GLOBAL DESIGN VARIABLES, 5500 
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2NDV = , I5/SX,«?HN(JMbER OF SENSITIVITY VARIABLES, NSV s,IS/5X,42 5510 

JHNUMBER Of FUNCTIONS IN TWO-SPACE, NJVAR = , I5/5X,42hINPUT INFORMA 5520 

^ T I ON PRINT COoE , I PNpUT =, Ib/sx, a 2 HSENSl TI VI TY PRINT COOE, 5S30 

5 • IPsenS =, l5/ , SX,a2HTwo-SPACF PRINT CODE, IP 2 VAR 5500 

6 = , I5/SX,ilj H OEBUG PRINT CODE, IPDBG = ,I5) 5550 

5Ro format (///sx^tm* * sensitivity information) ssbo 

boo Format ( /Tax, bmglobal , ax, 7 hnominal/Sx , 6 hnijm 8 ER , 2 X , shvari able, ox,sh 557o 

1VALUE,6X, , ahOFF-nOminal VALUES) 5580 

610 FORMAT (Sx, T«, I8,5X,tl2,S, IX,SE1 l ,«) 5590 

615 F0RMAT(J5t,sEi 1 ,U) 5600 

620 FORMAT («F ] 0 . 2 ' 1 OAu ) SolO 

630 FORMAT ( / 5x, jBHGLORaL VARIABLE NUmrER OF OB JEC T t VE , t 0 X , 1 H= , I S /SX , 5620 

1 <16hmUl T I pl I E R (n£GATjVE inDjCATES m j n jM i Z A T l ON ) =>E12.0) 5e30 

6 0 0 FORMAT (/sx,27H0ESIGM VARIABLE I NFORM A T I ON/S X , SOHNON-ZE RU INITIAL 5600 

IVALUe WILr OVeK-RIDE MODULE I NPUT /5X , 5h0 • V , , 5 X , 5hL 0«£R » l 0 X , SHUPPE 5650 
2R,qX,7MINj TI AL/5X,3HN0. , 7 X, ShBOUND, 1 OX, 5 hrOUND, 10X,5HVALUE,10X,5HS 56&0 
SCALE) 5670 

650 FORMAT (In,aX,Ei2,5,3X,Ei2.S,3X,Ei2.5,3X,E12.S,SAO) 5680 

660 FORMAT (I«,i7,2ia,5x, E l2.5,3X,El2.5,3x,El2.S,3x*El2.5) 5690 

670 FORMAT (/>sX, 22HC0NSTRAINT INFORMATION) 5700 

680 FORM*! ( / fx, RhTheRe are , 1 3 , 1 6H CONSTRAINT SETS) 5 710 

690 FORMAT ( 1 7x .eHGLOBAL, 2<,6HGL0BAL, 2X,6HLINFAR,6X,5 hL0WER,6X, 5720 

* 1 3HN0KM *| j 7 ATION, 7X , ShUpPER, 6X,13hN0RMAeiZATI0N/6X,2hi0»3x, 5730 

* 6 HVAR. 1,2X,6MVAR, 2 , U X , 2H I D , 8 X , SHBOUND , 9 X , 6 MF A C TO R , 1 0 X , 5700 

* 5HB0UND,oX,6HFACT0R) 5750 

700 FORMAT ( //rX, U 9HGL0HAL VARIABLE NUMBER CORRESPONDING TO X, N2VX s, 5760 

l lS//5X,20 yV ALllES OF X-vAriaBlE) 5770 

710 FORMAT (//5X,<|9HGL0BAL Y*RUBLE NUMBER CORRESPONDING TO Y, N2VY s, 5780 

ll5//5x,20w V ALUES OF Y-VAriABlE) 5790 

720 Format (3x,SEi2.U) 5800 

730 FORM*! (///SX,51H* * TWO. VARIABLE FUNCTION SPACE MAPPING I NFORM A T I 5810 

ion//sx,52hglobal variable numbers associated «ith F(x,y), m2vz) 582o 

700 Format (5x,lOl5) 5830 

750 FORMAT ( 2 0 A 4 ) 5800 

770 F0RMAT(8ljn) 58S0 

780 FORMAT ( 8 f 1 0 • 2 ) S860 

END 5870 
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ooo oooo oooooooo 



SU0ROUTINF COPE02 



SEPT. 77 



SU 0 ROUTIN F cOPEoa (array, ra, ia,narRay,nDRa,noia) 

common /CnmnI / IPRINT,nDv,ITmaX,NcON,nSIDE.ICNDIR,NSCAL,NFDG,FOCH, 
IF DC HM *CT»rTMtN,cTL,CTlMlN, THE Ta.PhI.Nac.de IF UN, DA 0 F UN, IINO0J,ITRM, 
2ITEP, INFOp,, I GO TO , INFO.O0J 
COMMON /CoPFS l / ATITLE(20) 

COMMON /CnPFS 3/ SGNOPT,N C ALC, IU0 J,NSV,NSObJ,NCONA,N2VX,M2vX,N2VY,M 
12VY,N2VAR # IPSE ns, IP2VAR, IPDRG.NACMXI ,N0VT0T,L0CR(25) ,LOCI (25) , ISCR 
»1 . ISCR2 

DIMENSION aR«AY(NARRAY) , RA(NORA) , T A(NDI A) 



**************»♦*»»»*********«*»**< 

routine Tn control optimization. 

♦♦a******************************* 



BY G . N. V A NOf R^L A A T S MAR., 1973. 

NASA. AMES RfSEARCM CENTER, MOFFETT FIELD, CALIF. 



ARRAY DIMENSIONS 



NNi=NDV+ 2 
NN2=2 *NQV;nc°N 
NN3=NACMXi 
NN4=NN3 

IF (NDV.Gr.NNa) NNasNOV 
NN5=2*NN4 



ARRAY STARTING LOCATIONS 



X, VLB, V|| R , OF, A, S, Gi, G2, C, B, SCAL, ISC, IC, MSI 
N X s l 

NVL6 = L0CR' f ?) 

NVUBsLOC R f X) 

NNSCAL=LOcR(«) 

NOF=LOC«(To) 

NG=NOF*NN^ 

NArNG *NN2 
NS=NAfNNl #N N3 
NG 1 =NS rNN{ 

NG2 = NGUN N2 

NC=NG2^NNp 

NgsNC 4-NNU 
NlSCrLOClM) 

NIC=10CI ( 1 0) 

NHS1 =NIC*NN3 



optimization 



IGOTOaO 

C Call CONMtm (X,DF,G, ISC, 1C, A,S,Gi,G2,C,MSl,B,VLB,VUB, 

C *SCAL,N1 ,N? # n3,M4,N5) 

50 CONTINUE 

CALL C0NM TN (RA(NX) , RA(NDF) ,RA (NG) , IA ( NISC),IA(NIC),«A(NA),RA(NS), 



10 

20 

30 

40 

50 

oO 

70 

80 

90 

100 

110 

120 

130 

1 ao 
150 
160 
170 
180 
190 
200 
210 
220 
230 
2ao 

250 
260 
270 
280 
290 
300 
310 
320 
330 
3ao 
350 
360 
370 
380 
390 
aoo 
a io 
a20 

430 

440 

450 

460 

470 

480 

490 

500 
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SUBROUTINp COPE02 SEPT, 77 

1 R A (NGl ) ,Ri (NG2) , RA (NC ) , I A (NMSl ) ,R a (N8) ,Ra (NVLB) /Ra (NVUB) , RATNNSCAL 510 

2 ) , N N 1 ,nn2,nn3,Nnu,nn5) 520 

C ANaLIZE. 530 

Caul COPE o 3 (AR»AT,NARRAY,RA(NX) ,RA(NOF) ,RA(NG) , IA(NIC) ,RA(NA) ,NN1 5ao 

l,NN2,NN3,p 4 , Ia,nORa,npia) 550 

I F ( I GOTO , rT . 0 ) GO TO 50 560 

RETURN 570 

End 580 
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SUBROUT I Nf COPEOJ SEPT, 77 

SUBROUT I Np COPE 0 3 (ARRAY, NARRAY, X, 0 F,G, IC,A,NN 1 ,NN 2 ,NN 3 ,KA, I A, NORA 
1 /NDlA) 

COMMON /C mmn 1 / IPR 1 NT,nDv,ITmax,nc 0 n,NSIDE,ICN 0 IR,NSCAL,NFDG,F 0 Ch, 
l'F 0 CHM,cT/r TMIN,CTL.CTLMIN, The T a * PhI , n ac > OE LFUN , o A 0 FUN , L I N 08 J , I TRM, 
21 TER, INF 0 r ., I GO TO, INFO, OBJ 

COMMON /CnPFSv SGNOPT,NCALC,IOBJ,NSV,NSORJ,NCONA,N 2 VX,M 2 VX,N 2 VY,M 

12 vy,n 2 VAR <i pSEnS,IP 2 var, 1 pOBG,naCmX 1 ,nOVTOT,lOCR( 25 ),UOCi( 25 ),ISCR 
* 1 , ISCR 2 

!a DIMENSION ARRAY (NAKRAY ) ,RA (NORA ) , 1 A (NDI A) 

DIMENSION X(NN 1 ), 0 F(NNj ) ,G(NN 2 ) , IC (NN 3 ) , a (Nn 3 , nnj ) 

ft******** A ********#*******«****t***********«******************ft*** 

BUFFER BEtwfEN CONmin and COPES FUNCTION EVALUATION, 

********* Aft *tft«******tt******«***********************«********t**« 

SY G. N. vamOE«PLAATS MAR,, 1973. 

NASA. AMES RESEARCH center, MOFFETT FIELD, CALIF. 

initial a nal ysis has been done, tf iter * o, go evaluate 

OBJECTIVE and CONSTRAINTS. 

IF( ITER.lt. 1 ) GO TO 25 



Transfer design variable values to user array 



N5=L0CR ( 5 ) 

M2=L0CI (2) 

00 20 Isl.NOVTOT 
N=I A(M2) 

Ns I A ( I ) 

ARRAY(M)=PA(N)*RA(N5) 

N5=N5>1 

M2=M2 f 1 

M 9 s M Q f 1 

CONTINUE 



analize 


ICALCS 2 




CALL ANALrZ( ICALC) 




OBJECTIVE 


CONT I nue 




OBJs-SGnOpt.ARRAY(IOBJ) 




IF (NCON.fq.O) RETURN 




- 


constraint values 



H32L0CI (3i 
N 6 =L 0 CR ( 6 ) 

Ns 0 

DO 40 I x 1 , NC ON A 

c parameter identifier. 



10 
20 
30 
40 
50 
60 
70 
SO 
90 
100 
1 10 
120 
130 
140 
150 
1 60 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
2/0 
260 
290 
300 
310 
320 
330 
340 
350 
360 
3/0 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
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SuBROUTINf COPE03 



SEPT. 77 



NN=IA(M3) 

CC=ARRAY(wn) 

C LORER HOUnD. 

B0sRA(N6) 

IF (BB.lT.l # 0Etl5) GO TO 50 

c normalization factor. 

Cl =RA (N6+i ) 

c constraint value. 

n N=N+ 1 

G(N)s(8B-rC)/Cl 
C UPPER BOUND. 

30 B0=RA(N6+p) 

c normalization FACTOR, 

Cl=RA(N6t^) 

N6=N6f 4 
M3sM 3+ 1 

IF (0B.Gr i .0E + 1S) GO TO 40 
C CONSTRAINT value. 

NrN-f 1 

G(N)s(CC-qR)/Cl 
ao continue 

return 
End 



510 
520 
530 
540 
550 
560 
570 
560 
590 
600 
6 1 0 
620 
650 
640 
650 
660 
670 
660 
690 
700 
7 10 
720 
730 
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SUBROUTlNp cOPEOa 



SEPT. 77 






160 



SllB R OUTl N F COPEoa (ARPAY,RA, I A , NaRRA Y , NORA , NDI A ) 

COMMON /CnmN 1 / IPRInT,NDv, ITHAX,NCON,NSIDE, ICN 0IR,NSCAL,NFOG,F0CH, 
lFDCHM,cT,rTMlN,cTL,CTLMlN, T HE T A , PH I , N AC . DELFUN , DA8FUN , L I NOB J , I TRM , 
2ITfcR, IHFOr,, IGOTO, 1NFU.0RJ 
COMMON /CnPpSi/ ATtTLF(20) 

COMMON /CnppS-5/ SGN0PT,NCALC,1 OBJ , N$ V , nSOB J , NC0Na,N2VX,M2VX,N2VY,M 
12VY,n 2VAR , jpSENS, IP2VAR, jpOBG.nACmX I , nDvtoT,L 0CR(2S) , l_0C I (25) , I SCR 
* 1 , ISCR2 

01 PENSION aR r AY(NARRAY),RA(NORA),IA(NOIA) 

♦♦A*************************************************************** 

Routine t 0 provide sensitivity information with respect to 

A PRESCRIrEO SET OF DESIGN VARIABLES. 

A*******************.********************************************* 

BY G. N, VANOEKPLAATS MAR,, 1973, 

STORE OUTPUT ON UNIT ISCR1, 

rewind isfri 



WRITE BASIC INFORMATION ON UNIT ISCRl 



title. 

write (IS(-ri, 330) (ATITLECn , 1 = 1 , 20 ) 
NCALC, NS v , NS08J 

WRITE (ISrRl.JPO) NCALC, NSV,NS08J 

ISENS(I),r=l,NSV t 

P6rL0CI (6) 

M7rMt> + NSV_t 

WRITE (ISr«i,3«0) ( I A ( I ) , I s M<> , M 7 ) 

NSENSZ(t),lsl,NS09J. 

M5=LOCI (5) 

M6sM5+NS0rj.1 

WRITE (ISrRt,3«0) (IA(I),IsM5,M6) 

JC ALC = 3 
ICALC=2 



********** 



nominal 



********** 



CALL ANALtZ ( IC ALC) 

IF (IPSENs.gT.O) CALL ANaLIZ (JCALC) 



WRITE NOMINAL RtSULTS ON UNIT I SC R 1 



SENS (1,1)'. 
M7sLOCI (7^ 
NlO*LOCP(?o) 
NU*N10 

DO 160 I2? # NSV 
NaM 7+ I - 1 
Nsl A (N) 

«A(N1 1 )=Ri(N) 

N 1 1 S N 1 !♦! 



10 
20 
30 
40 
50 
60 
70 
60 
90 
100 
1 10 
120 
150 
140 
150 
160 
1 70 
180 
190 
200 
210 
220 
230 
240 
250 
2b0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
450 
460 
470 
400 
490 
500 



i 
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SUBROUTINE cOpEOa 



SEPT. 77 






N 1 1 =N1 O^N^v-1 

WRI TE( ISCpi # 3SO) (RA( I ) , IsN10,Nl 1 ) 

C SENSITIVITY OBJECTIVES, O0JZ, 

H5=L0CI (5) 

N 1 O s LOCR ( i 0) 

N 1 1 =N 1 0 

DO 170 r=T,NSOBJ 
MrM5*I-l 

M=I A (M) 

RA(Ni 1 )=Aqr A Y(M) 

1 7 0 Nji=NjiM 

N 1 1=nio>N<^dbJ-1 

WRITE ( ISCpi , 3SO ) (RA ( I ) , I=N10,N1 1 ) 

C 1.. 

C ********** SENSITIVITIES 

c ; — 

NSVA|_=LOCr ( 8) -l OCR ( 7 ) -NSV 

nsval 1=0 

DO 320 II = t,NSV 

c sensitivity variable nu^seR. 

M6SLOCI Cb 1+ Il-1 
ISENS=IA(M6) 

C STARTING i'oCATION of SENSITIVITY VALUES IN RA (M7). 

M7=L0CI (7 1+ II-1 
MflsI A (M7+ i ) 

M7=I A (H7) 

C NUMBER OF SENSITIVITY VARIABLES, NSENS, 

NSENS=M8-m7 

IF (II,EQ>SV) NSENS5NSVAL-NSVALU1 
IF (NSENS']lE.1) DO TO 320 
C write ISEms and NSENS ON UNIT ISCRl. 

NSENSI =NSenS*1 

WRITE ( I Sr r t , 34 0) ISENS, NSENSI 

c 

c vary the value of the sensitivity parameter 

c — :.. - 

DO 310 JJ-p, NSENS 

nsvali=ns V al W1 

K=M7*JJ-1 

ARRAY( ISEmS)=RA (K) 

C write SENs (T ,J) ON UNIT I SCR l • 

WRITE ( I Sr P l , 350 ) ARRaY(ISENS) 

C ANALIZE. 

Call ANALJ7CICALC) 

IF (IPSENS.gt.O) call ANAlIZC JCALC) 

c - 

C WRITE SENSITIVITY RESULTS UN UNIT ISCRl 

c ; - 

C OBJZ, 

M5=L0CI (Sj 



S10 
520 
530 
54 0 
550 
560 
570 
560 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
9/0 
980 
990 
1000 
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$ubroutin f cope oa 



SEPT, 77 





N 1 0 S UOCR ( i o ) 


1010 




Nll=N10 


1020 




00 300 i=T # nsobj 


1030 




' MsMS+I-1 


loao 




MsIA(M) 


1050 




RA(N 1 1 )r*p R4 Y(M) 


1 Ob 0 


300 


N11=N1 1*1 


1070 




N 1 1=NI 0+N^o»J-l 


1060 




*RITE (ISCbi ,3S0) («A( I) , IsNio.Nl I ) 


1090 


310 


continue 


1 100 




array(isehst sR a( m7 ) 


1110 


320 


CONTINUE 


1120 




return 


1130 


c 


_ * 




c 


FORMATS 


1 150 


c 


* 




330 


Format (2aa«) 


1170 


3«0 


format (1m5) 


1 1 00 


350 


format ( 5f i S , S ) 


1 190 




end 


1200 



i 

\ 
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SUBROUTINE COPE05 



SEPT. 77 



SUBROllTINF COPE05 ( R A , I A , NOR A , NO I A ) 

COMMON /Cnmn 1 / I PRINT, NOV, ITMAX,McON,NSIOE, ICNDIR, nSCAL,NFOG,FDCH, 
lFOCHM.cT.rTMlN.CTL.cTLMlN.THETA^PHl/NAC^OELFUNjOARFUN/LINOBJ/ITRM, 
2 IT£R, INFOr, I GO TO, InFO.ORJ 
COMMON /CnPFS 1 / ATITLE(20) 

COMMON /CnPFSj/ SGNOPT , NCALC , I08 J,NSV,nS0BJ,NC0NA,N2VX,M2VX,N2VY,M 
12vy,n2vAR. jpSENS, IP2 VAR, iP0BG,nAC M X 1 ,N0VT0T,L0CR(2b) ,L0Ci (25) , I SCR 
*1 , ISCR2 

DIMENSION ra (NORA ) , IA (NOI a ) 



****★****. 



Routine To print sensitivity information stored on unit iscri. 



******* < 



r********************* 



BY G, N, vanDEPPLAaTS JULY, 197a, 

NASA.AMFS RESEARCH CENTER, MOFFETT FIELD, CaLIF, 

REWIND ISfRi 



general information 



title. 

READ (ISCpi, 60) (ATITLE(I),I=1,20) 

NCALC, NSv, NSOBJ 

READ ( I SCp l , 7 0 ) NCALC, NSV, NSOBJ 

IF(NCALC,kje.3) return 
WR I TE ( 6 , 8o ) 

WRITE (6,c; 0 ) (ATITLE(I) , 1 = 1,20) 
WRITE (6,oo) NSV, NSOBJ 
ISENSU ) , r = 1 , NS V f 
READ (ISCpi, 70) (lA(I),Isl,NSV) 
WRITE (6 m 10) 

WRITE (<b,i 2 o) ( I A ( I ) , I = 1 , NS V ) 

NSENSZCI) , 1=1 , NSOBJ. 

READ (ISCpi, 70) (lA(I),I=l, NSOBJ ) 

WRITE (6, no) 

WRITE (6m30) ( I A ( I ) , 1 = 1, NSOBJ) 



NOMINAL INFORMATION 



SENS ( I ) , I- i ,NSV, 

RF A 0 (ISCPl#l«0) (RA ( I ) , 1=1 ,NSV ) 
WRITE ( 6 , ISO) 

WRITE (RA(I),l=t,NSV) 

OBJZ(I),I-i, NSOBJ. 

READ (ISCpi, laO) (RA(I),I=l, NSOBJ) 
WRITE (6m70) 

WRITE (6,,60) (RA(I), 1=1, NSOBJ) 



********** SENSITIVITY INFORMATION 



WRITE ( 6 , i fl o ) 

DO ao ISEns=1,NSV 



10 

20 

30 

ao 
50 
60 
70 
00 
90 
100 
110 
120 
130 
1 ao 
150 
160 
170 
180 
190 
200 
210 
220 
230 

2a0 
250 
260 
270 
260 
290 
300 
310 
320 
330 
3ao 
350 
360 
370 
300 
390 
aoo 
a i o 
a20 
a30 
aao 
aso 
a60 
a 7 o 
aao 
a9o 
500 



■X 
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subroutine cupeos 



SEPT. 77 



c 


I SENS I , NqpNSI 




510 




Read ( I SCp | , 70 ) ISENSI.NSENSI 




520 




WRITE (6,190) I SENS I 




530 




IF (NSENSf .£'), 0 ) nWITE (6,200) 




540 




IF (NSENSt.E'T.O) go TO «o 




550 




DO 30 JJ = i',MSENSI 




560 


c 


S E N S ( I , J ) ‘. 




570 




R£aO ( ISCoi , laO) SENS I J 




580 


c 


OBJZ(I),I-t,NsOBJ. 




590 




READ (ISCsi.laO) (RA(I),i=i,NSOBJ) 




600 




N:mino(0, nSOBJ) 




610 




WRITE ( 6 , p i o ) 5ENSIJ,(RA ( I),Iat,N) 




620 




N=(NS()BJ-T) /R 




630 




IF ( N . L T , ) ) GO TO 20 




640 




U=5 




650 




DO 10 1=1. N 




660 




L2=l 1+3 




670 




L2=MIN0(Lp,NSOBJ) 




660 




WRITE ( 6 , p20 ) (RA(J),J = U,L2) 




690 


to 


Ll=LU<J 




700 


20 


CONTINUE 




710 


30 


CONTINUE 




720 


40 


Continue 




730 




RETURN 




740 


c 


__ 




750 


c 


FORMATS 




760 


c 






770 


50 


format ( />sx, sht i tle/sx, 20 ap j 




780 


60 


format (2iaU) 




790 


70 


FORMAT (Ujs) 




800 


60 


FORMAT ( 1 M l , 4X, 47HSTAN0ARD SENSITIVITY ANALYSIS RESULTS (NCALC=3)) 


810 


90 


Format ( //5X , 36HNUMRER OF SENSITIVITY VARIABLES, NSV,Rx,lH= 


, IS/5X, 


820 




1J9HNUMBER OF SENSITIVITY OBJECTIVES, NSOB J , 6* , 1 Hs , 15 ) 




830 


110 


FORM A T (//SX*52hGLOBAL NUMBERS ASSOCIATED with SENSITIVITY 


VARIABL 


840 




1ES) 




850 


120 


FORMAT (5y , 1 0 IS ) 




860 


130 


FORMaT ( / /<5* » 53HGLOB AL NUMBERS ASSOCIATED with SENSITIVITY 


OBJECT I 


870 




1V£S) 




880 


140 


FORMAT (SpiS.B) 




8 V 0 


i S 0 


FORMAT (/>//5*,26HN0MINAL DESIGN I NFORM A T I ON// 5 X , J 1 H V ALUES 


OF SENS 


900 




1ITIVITY VapiAblES) 




910 


160 


FORMAT (Sy , St 1 3,5) 




920 


170 


FORMAT (// s x, aiHVALUES OF SENSITIVITY OBJECTIVE FUNCTIONS) 




940 


160 


format (/>///sx,2Shsensitivity analysis results) 




940 


190 


FORMAT (//SX, 1 SHGLORAL V aR I ABLE , I s// 1 OX , 1 HX , 20 X , OHF ( X ) ) 




950 


^00 


FORMAT (/^x.JShTHE NUMINal value is The ONLY V AL U£ /S X , 2 7HSPEC I F I ED 


960 




1 FOR THIS VARIABLE) 




970 


210 


FORMAT (/tx,E12.R»3X,UE13,<I) 




980 


220 


Format (1ax,RE13.U) 




990 




End 




1000 
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SUBROUT I Np cOPEOb 



SEPT, 77 



.{ 



SUBROUTlNp COPE06 ( Arr A Y , R A , I A , N ApR A T , ND r A , NO I A ) 

COMMON /CnmnI / IPWINT ,N0V, ITMAX,NcON,NSIDE. ICMOIR, NSC *L,NF0G,F0CH, 
' lFOCHM,cr,jiTMlN,CTL,crLMlN, THE T a , PH I » n aC , DELFUN , D A rF UN , L I N08 J , ITRm, 
21 TE«, INFOo, TGO lO, INFO, OBJ 
COMMON /CopeSi/ ATITLE(20) 

COMMON /CnPFPJ/ SGN0PT,NCALC,I OBJ ,NS V, NS08J ,NC0NA,N2VX,M2VX,N2VY,M 
12 vy,n2vAr.jpSENS,IP2YAr, jPOBG.nAChXI ,n0VT0T,L0CR(2S),lUCi(25),ISCR 
* 1 , ISCR2 

DIMENSION a rRaY(NARRAY),RA( NORA), IA( NO IA) 

c ************ *********** ************** **************** ************* 

routine Tn calculate functions of two design Variables for all 
combinations OF a set OF PRESCRIBED values of these variables. 

ft***************************************************************** 

WRITE UUTpijt INFORMATION ON SCRATCH UNIT I$CR1* 

BY G. N t VANDEWPLAATS AUG f , 1974 , 

NASA. AMES qe^EARCH CENTER, MOFFETT FIELD, CALIF* 

REwIno I S r p i 



UNIT ISCR1 write 



WRITE ( I S r R j , 1 60 ) ( A T I TLE ( I ) , I - 1 , ?0 ) 

WRITE C I Sr R I # 1 70 ) NCALC,N2VAR,M2YX,N2VX,M2VY,N2VY 

N2VZ. 

Hfl=LOCI C8) 

MQsLOCI ( 9).i 

WRITE ( I S f R i , 1 70 > (IA(I),I=M6,M9) 



two. variable function space 



I C A LC s2 
KCALC=3 
I S I GNs 1 
N6=L0CR ( 9 } 

NRxLOCR (R'l-t 

DO 150 I=[,M2VX 
ARRAY(N2V Y )r«A (Nfl) 

DO lao j=T,m2vy 
N9sN9* ISIrn 

ARRAY(N2Vy )= RA(N9) 

analize. 

call ANALrzr icalo 

CONTINUE 

IF( IP2VAR' GT*0) CALL ANALIZ(KCALC) 



UNIT I SCR 1 WRITE 



WRITE X, y. 

WRITE (ISfRt,l80) RA(N8),RA(N<3) 
C F(X,Y) VA,uES # 

N10*LOCR(?0) 



1( 

AC 
«C 
SC 
6C 
7C 
SC 
VO 
IOC 
1 10 
120 
1 30 
140 
150 
lbO 
1 70 
1 60 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3b0 
370 
360 
390 
400 
4 1 O 
420 
450 
440 
450 
4 o O 
470 
460 
490 
500 
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SUBRQUTINf COPE06 



SEPT. 77 



Nli=N10 510 

HBsLOCI(B) 520 

00 130 Ksj #N 2vAR 530 

NsIA(Me) 590 

R*(N|1 )=ApraY(N) 550 

N 1 1 =N 1 | ♦ 1 5o0 

H8=H8+1 570 

130 CONTINUE 560 

Nil =NJ O+ npvaR-1 540 

WRI Te ( ISCR i , 180) (RA(K) ,KsN10,Nll ) 600 

iao continue 610 

N6=N9+ I S I rn 620 

N8=N8+1 6.10 

ISIGNs-TStgN 600 

150 CONTINUE 650 

RETURN 660 

............. .... .............. 6 70 

FORMATS 680 

...................... ......... 69 0 

160 format (2nA0) 700 

1 7o format (uis) 7io 

iso format (5fis.8) 720 

End 730 
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C 

C 



c 



c 



c 

c 



c 

c 

c 



c 

c 



SUBROUT I Np COPE07 ( R A , I A # NOR A , NO I A ) 

COMMON / C m m N 1 / IPRINT,NDV, ITMAX,NcON,N$IDE* icndir,n$cal,nfdg,fdch, 
1F0CHM/CT^TMIN,CTL,CTLMIN, THETAr PHI rNACf OELFUN # OA0FUN# UNOBJr I TPM, 
21 T^R, INF Op,, JGOTO, INFO, OBJ 
COMMON /CnPFSl/ aTITLE(20) 

COMMON /CnPES 3/ SGNOPT, NcALC, I OB J , NS V , N$08 J , NCON A , N2 V X , M2 V X , N2 V Y , M 
12 vY,n 2VAR # jpSENSf IP2 VAR, iPDBG,nACmX 1 , NOV TOT , LOCR ( 25 ) , IOC i (25) , I SCR 
*1 , I Sc R<? 

DIMENSION RA(NDRA) , I A(NOTA) 






r********i 



P **************** 



ROUTINE T n print Two VARIABLE FUNCTION space INFORMATION STORED ON 
UNIT ISC*?. 



i**»«*************»**, 



BY G, N, vANOERPLAATS AUG,, 1974, 

NASA.AMES RFSEARCH CENTER, MOFFETT FIELD, CALIF, 

REWIND ISrRt 



GENERAL information 



title. 

READ (ISCui.Bo) (ATITLECI), 1=1,20) 

RE AO (ISC(J],90) NCALC,N2VAR,M2VX,N2VX,M2VY,N2VY 
IF(NCALC,me.4) RETURN 
N2VZ(I), I=i,N2VAR. 

READ (ISCpi,90) ( I A ( I ) , 1 = 1 ,N2VAR) 

RR I te c 6 , 5 n ) 

WRITE (6,40) (ATITLf(I), 1=1,20) 

N2VX, N2V^. 

WRITE (fc^ao) N2VX.N2VY 
N2VZ. 

WRITE (6mso) 

WRITE ( fo, 100) ( 1 A ( I ) , I = 1 , n2V AR ) 



TWO-VARIABLE FUNCTION space INFORMATION 



DO 10 I=1,M?VX 
WRITE ( 6 , t60) 

DO 30 J=1.M?VY 
X , Y 

READ - CISCri # 170) xx, YY 
F(X, Y) f 
N 1 0 = L OCR (Jn ) 

NI l=NlO+Np V AR-l 

RE AD(I SC W^,i 70)(RA(K),K5N10, Nil) 

usa 

IF (N2VAR^ L T,a) Nr N 2 V A R 
N 1 1 r N 1 0 + n! | 

I F ( J # EU # 1 1 wRlTE(fe,120)XX,YY,(RA(K),KrN10,Nll) 
I F ( J # GT , 1 ^ wRITE(6,.110)Yy,(RA(K),k = N10,NH) 

IP (N.IE. N2VAR) GO TO 20 



10 
20 
30 
40 
50 
60 
70 
BO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
1 6 0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
38 0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
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20 

30 

C 

C 

C 

40 

50 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 



510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 
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Mr(N2VAR-i ) /4 
Ns N 1 0 ♦ 4 
00 10 K=1,m 
L = Nf 3 

IFfL.GT.Njt) L=N11 

WRITE ( 6 » t 3 0 ) (RA(KK) ,KK = N,L) 

n=l ♦ 1 
continue 

CONTINUE 

RETURN 



formats 



format (/;s*,SHTITLE/SX,20A4) 

format ( 1 M t .4X,35HTW0-VARtABLE FUNCTION SPACE RESULTS) 

FORMAT ( 2 o a 4 ) 
format (UiS) 

FORMAT (Sy.iOIS) 

Format ( / j sx , E 1 2 . 4 , 3X , 4E I 3 . 4 ) 

FORMAT (/TX,2E12.4,3X,4E13,4) 

Format (3?*,4ei3,4) 

FORMAT (/;//5X.48HGLQRAL number ASSOCIATED WITH X. VARIABLE, N2 V X = 
n l5//5X,4fl HG L0BA L NUMBER ASSORTED * j Th Y-vARjABlE, N2VY =,15) 
FORMAT C//5X» 37HCLOBAL NUMBERS ASSOCIATED WITH F(X,Y)) 

FORM A T (//10X,1HX,11X,1HY#20X, 6HF ( X, Y ) ) 

FORMAT (SfiS.A) 

END 
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SUBROUTI Np cONMIN (X,DF»G,ISC»1C,A»S,G|,G2,C,MS1,B,VLB,VU8,SCAL,N1 10 

1 ,N2,N3,N9, n5 ) 20 

COMMON /CmmN I / IPRINT.nDV, ITMAX,NcON,NSIDE, ICNDIR.NSCAL.nFDG.FOCH, 30 

lFDCHM,cT,rTMlN,cTL,ClLMIN, T hETa/PhI, NaC/OELFUN,darFUN,LINObJ, ITRM, <40 

21 TER, INFOp,, IGOTO, INFO, OBJ 50 

COMMON /ConSAV/OMI, DM 2, DM3, OM«, DM<; , DM6 , DM7 , DM8 , DM6, DM t 0,DCT , OCTL,P oO 

1 M I 1 > AROBJ. AflOfiJl , A lPHAX,CTA,CTAM,cT0M,OBJ!*SLOPE/OX,DX1/FI»XI,DFTD 70 

m 2F1 , ALP/FFp, Dt (21 ) *RSPACE, IDM1 , IOM2, I DM3» JDIP. BO 

«IO0j, KOBJ ,KC°UNT , NcAl(2),NFE a S,ms c AL,NcObJ#NVC,ID1(7) 90 

*, I I I ,NLNC. JGOTO, ISPACF(2) 100 

DIMENSION X(Ni ) / DF ( n1),G(N2),ISC(n2},IC(N3),A(n3 < N|),S(N1),G1 (N2), 110 

1G2(N2) ,c(n« WMS1 (N5) ,b(N 3, Ni) , VLb(NI ) , VUR(N1 ) »SCAl. (Nl ) 120 

Routine T n solve constrained or unconstrained function 130 

MINIMIZATION. 190 

BY G. N, VANDERPLAATS APRIL, 1972. 150 

NASA. AMES pfSeaRCH CENTER, MOFFETT FIELD, CALIF. 160 

REFERENCE* CONMIN . a FORTRAN PROGRAM FOR CONSTRAINED FUNCTION 170 

minimisation: USER’S MANUAL, by G. N, VANDERPLAATS, 180 

NASA tm X.o2 » 282 , AUGUST, 1973, 190 

storage Requirements: 200 

PROGRAM - 7000 DECIMAL WORDS (CDC COMPUTER) 210 

ARRAYS • APPROX. 2*(N0V**2)+?6*NDV+9*NC0N, 220 

WHERE n3 = NDV+2. 230 

re-scale variables IF REQUIRED, 290 

IF (NSCAL'.ED. 0. OR. IGOTO, EQ.O) GD TO 20 250 

00 10 1 = 1 )nDV 260 

10 X(I)=C(I) 270 

20 continue 28o 

C CONSTANTS^ 290 

NDV1=NDV+1 300 

NDV2=NOV*2 310 

IF (IGOTO' f EQ.O) go TO 30 320 

GO TO ( I5n, 37o, 360 ,650, 670 ) , IGOTO 330 

C 1 ............. 39 0 

c Save input control parameters 350 

c ....1 ......................................... 360 

30 CONTINUE 370 

IF (IPRINt >G T.O) WRITE (6,1230) 380 

IF (LINOB.i.e'I.O.OR, (NCON.GT.O.OH.nSIOE.GT.O) ) GO TO 90 390 

c totally unconstrained function with linear objective. 90.0 

C SOLUTION fs UNBOUNDED, 910 

WRITE ( 6 , 070 ) LI NOBJ, NCON,NSI DE 920 

return 930 

90 CONTINUE 990 

1 DM 1 s I TRM 950 

IDM2=ITMAy 960 

IDM3sICNOtR 970 

DmisDELFUn 980 

DM23DABFUm 990 

DM3=CT 500 
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0M4ISCTMIN 

DM5=CTL 

0M6 = CTLMIig 
DM7=TH£TA 

om8=phi 

DMQSFOCH 

OM1 OrFOCHM 


SEPT, 77 


510 

520 

530 

540 

550 

560 

570 

c: u a 


OFF AULTS 




JO u 

590 
6 0 0 


IF (IIRH., e> 0) IT»M=i 




610 


IF ( ITMAX'^lF.O) ITMAX = 20 




620 


NDVlsNDV+j 




630 


IF (ICNOIp.fQ.O) ICNOIR=nOV1 




640 


IF (OELFUm.lE.O.) OELFUNs.OOOI 




650 


CT=-A8S(Ct) 




660 


IF (CT.GE'.n.) CT = -.l 




670 


CTMINsABS/cT^IN) 




660 


IF (CTMIn #l e.o.) CTHlNs.OOa 




690 


CTL=-A3S(rTL ) 




700 


IF (CTL.Gp.o.) CTL=-O,01 




710 


CTl*INrABs ( cTl"IN) 




720 


IF (CTLHIn.lE.O. ) CTLHINs.001 




730 


IF (THETA'.le.o. ) ThETasI, 




740 


IF (PHI.Lf.O.) PHI=5. 




750 


IF ( FDCH , | f.O. ) FDCH=,01 




760 


IF (FOCHM' iLE .o. ) FOCHMs.ol 




770 

760 

790 


initialize internal parameters 








600 


INFOG=0 




810 


ITER=0 




820 


JDIRsO 




830 


IOBJsO 




840 


KOBJsO 




850 


N0V2sN0V+? 




860 


KCOUNTsO 




870 


NCAL( 1 )sO 




880 


NCAL ( 2 ) = 0 




890 


NAC = 0 




900 


NFtASsO 




910 


MSCAl=NSC1l 




920 


C T 1 s I TR m 




930 


C T J = I ./CTT 




940 


DCT=CCTmIn/aBS(CI))«*CT1 




950 


OCTLs(CTLmin/aHS(CTL) )»*CTl 




960 


Phi I xPH I 




970 


ABOBJS.I 




980 


A0OBJI s, 1 




990 


ALPHAXs, 1 




1000 
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NCOBJro 1010 

CTAMsaBS(£thIn) 1020 

CTBMsABS(rTLMIN) 1030 

C CALCULATE NUMBER OF LINEAR CONSTRAINTS, NLNC, 1QO0 

NLNCrO 1050 

IF (NCON.pQ.O) GO TO 60 1060 

00 SO 1=1 ,NCON 1070 

IF (ISC(It.gT.O) NLNC=NLNC+1 1060 

50 CONTINUE 1090 

60 CONTINUE 1100 

c ■ ......................... ..... .............. 1110 

c check to be sure that side constraints are satisfied 1120 

c ; — - - n3o 

IF (NSIDE'.EO.O) GO TU 100 1100 

00 90 1 = 1 . NOV 1 150 

IF ( VLB ( I ) . l£ . VUB ( I ) ) GO TO 70 1160 

XXs.S*<VLR(I)+VUB(I)) 1170 

X ( I ) = X X 1160 

VLB(I)=XX 1190 

VUB ( I ) =X X 1200 

WRITE (6,?l?0) I 1210 

70 CONTINUE 1220 

XXsX(I)-V, B (I) 1230 

IF (XX.GE.o.) 00 TO 60 1200 

C LOWER BOUno VIULATEO, 1250 

WRITE (6, )130) X(I),VLB(I),I 1260 

X(I)=VLB(T) 1270 

GO TO 90 1280 

80 CONTINUE 1290 

XXsVUB(I);*(I) 1300 

IF (XX.GE'.o. ) GO TO 90 1310 

WRITE (6 , i i aO ) X(I),VUB(I),I 1320 

X(I)*VUB(t) 1330 

90 CONTINUE 1300 

100 CONTINUE 1350 

C 1 360 

C INITIALIZE SCALING VECTOR, SCAL 1370 

C ... .................... ........... 1360 

IF (NSCAL'eO.O) GO TO 100 1390 

IF (nSCAl'lT.O) GO TU 1 20 1000 

DO 110 I=j.nOv 1010 

110 SCAL(I)=1. 1020 

GO TO 100 1030 

120 CONTINUE 1000 

00 130 I = f , NO V 1050 

SIsA0S(SCal(I)) 1 060 

IF (SI. LI', i .OF-20) SI = 1.0E«S 1«70 

SCAL(I)=Sr 1«80 

SI=1./SI 1090 

X(I)=X(I),si 1 SOO 
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IF (NSIDE'eO.O) go TO iJo 1510 

VLB ( I ) = VLr ( I ) «S I 1520 

VU8 ( I ) sVUr ( I ) • SI 1530 

130 CONTINUE 1500 

100 CONTINUE 1550 

c 15o0 

C ***** CALrillATt INITIAL FUNCTION AND CONSTRAINT VALUES ***** 1570 

c 1 1 5o0 

1 NFOs 1 1590 

NCAL(1)si loOO 

IG0T0=1 1610 

GO To 950 , 1620 

150 CONTINUE 1630 

OBJlsOBJ 1 ooO 

IF (OABFUn.lE.O. ) OAUFUNs, 001 «A8S(0BJ ) 1650 

IF (OABFUn.L 1 . I .OE-10) DaBFUN=1 .0F-10 16o0 

IF (IPRIN T |lE.O) GO TO 260 1670 

c — ........ ..... i o*o 

C PRINT INITIAL DESIGN INFORMATION lo90 

C 1 .......... 1700 

IF (IPRINt.lE.1 > GO TO 220 1710 

. IF (NSIOE^EO.O. AND, NCON. EG. 0) wRlTE (6,1300) 1720 

IF ( NS IDE' NE . 0 .OH , NCON . GT , 0) «wITE (6,1240) 1730 

WRITE ( 6 , | 250 ) IPRINT ,NDv, I TMAA, NcON, nSIDE, ICNDIR, NSCAL,NFDG,LINOB 1740 
1 J » ITRm,n1,n2»N3»N4,n5 1750 

WRITE (6, i"?70) CT,CTmin,cTL,CTLMIn, THETA, Phi ,D£LFUN,OABFUN 1760 

"RITE (6,j260) FDCH , F DC H M 1770 

IF (NSIDE EO.O) GO TO 180 1780 

HR I T£ (6,*2A0) 1790 

DO 1 60 I=i,NDv,6 1800 

MlsMIN0(NnV,I*5) 1310 

160 HriTE ( 6 , ) o 1 0 ) I , ( VLB ( J ) , J = I , M 1 ) 1820 

WRITE (6,7290) 1830 

DO 170 1=1, NOV, 6 1840 

*tsMINO(Nnv, 1+5) 1650 

170 "RITE (6,jotO) I,(VUB(J),J=I,H1) I860 

180 CONTINUE 1870 

IF (NSCAL'.GF.O) GO TO 190 1880 

WRITE (6,1*310) 1690 

WRITE (6, ta70) (SCAL(I),I=1,NDV) 1900 

1 90 CONTINUE 1910 

IF (NCON, fq> 0) GO TO 220 1920 

IF (NLNC.FO.O.OR.NLNC.EO.NCON) GO TO 210 1930 

WRITE (6,j02®) 1940 

00 200 I=i,nC0N,15 1950 

M1sM]nO(Neon» I+ l«) I960 

200 write (6,,o30) I, (ISCCJ),J=I,H1) 1970 

GO TO 220 1980 

210 IF (NLNC.FO.NCON) WRITE (6,1040) 1990 

IF (NLNC.FO.O) WRITE ( 6 » l 050 ) 2000 
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220 CONTINUE 

MR I TE (6,7uS0) OBJ 
WRITE (6.1460) 

DO 230 I=i,NDv 
X 1 = I . 

IF (NSCAL'.nE.O) X 1 =SC A L ( I ) 

230 Gl(I)=X(Ii»xl 

00 240 I=f,NDV,6 
Ml=MlNO(Nnv, 1+5) 

240 WRITE (6,^010) I# <G1 (J), J=I,M1) 

IF (NCUN.fq.O) (JO TO 260 
WRITE (6,14*0) 

DO 250 I=J,nCON,o 
M l=MlN0(NrON, 1+5) 

250 WRITE (6,ioi0) I,(G(J),JsI,M|) 

260 CONTINUE 

IF ( IPRINt.rT. 1 ) WRITE (6,1 370) 

C 1 

C *******.*,*..♦»***•* BEGIN MINIMIZATION **************** 

C - 

270 CONTINUE 

iter=iter;i 

IF ( AB08J i .L r . . 000 1 ) A80 bJ 1=.0001 
IF ( ABOB Ji . G T , , 2 ) AB0RJ1 = .2 
IP (ALPHAy.r.T . 1 . ) ALPHAXsl, 

IF (ALPHAy >L T..01) ALPHAX=,01 
IF (IPRINt.gT.2) write (6,1320) ITER 

NFEAS=NF£i S+ l 

IF (NFEAS' GT. 10) GO TO 790 

IF (IPHIN^ G T.3.ANO.NCON,GT.O) wRiTE (6, 1330) CT,CTL,PHI 
CTA=A0S(Ct) 

IF (NCOBJ’^O.O) GO TO 310 

c — 

C NO MOVE On last ITERATION. DELETE CONSTRAINTS THaT ARE NO 

C LONGER ACTIVE. 

C 

NNACsNAC 

DO 300 I=i , NNAC 

NIC=IC(I) 

IF (NIC .Gt .NCON) NAC=NAC-1 
IF (NIC.Gir.NCON) GO TO 30 0 
CT1=CT 

if (ISC(NJc).GT.O) CTlsCTL 
IF (G(NICi.GT.CTl) GO TO 300 
HAC=NAC-1 

IF (I.EO.nnaC) GO TO 300 
IP1=I+1 

DO 290 K=tpi , NNAC 
llaK-l 

DO 280 J= i , NO V2 



2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2160 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2360 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 
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280 A(II,J)sA(k,J) 2510 

290 IC(II)=ICfKl 2520 

500 CONTINUE 2530 

GO TO 900 2590 

310 continue 2550 

IF (MSCAL' UT.NSCAL.OR.NSCAL.EO.O) GO TO 330 2560 

IF (NSCAL'lT.O.AND.KCOUNT.LT.ICNOTR) GO TO 330 2570 

MSCAL=0 * 2560 

KC0UNT=0 2590 

C 1 ............ ... ................. ... 260 0 

C SCALE variables 2610 

C ......... 2620 

00 320 I=i,NOV 2630 

SIsSCAL(I) 2690 

XIsSl*X(I) 2650 

SIB=SI 2660 

IF (NSCAL* OT.O) SlrABS(Xi) 2670 

IF (SI.LT'i .OE-10) GO TO 320 2680 

SCAL(I)=St 2690 

Sis 1 , /SI 2700 

X(I)sxI*St 2710 

IF (NSIDE'eq.O) GO TO 320 2720 

VLB(I)sSIr»sI*vLB(I) 2730 

VUB(I)=SIr,sI*VUB(I) 2790 

320 CONTINUE 2750 

IF (IPRINt.lT.O,OR,(N5CAL,LT.0,AND.ITER.GT,1 )) GO TO 330 2760 

WRITE (6,^90) 2770 

WRITE (6,1970) (SCAL ( I) , 1 = 1 ,NDV) 2780 

330 CONTINUE 2790 

MSCAlsmSCal*! 2800 

NAC=0 2810 

c 1 .... ..... 2820 

c 0 bTa tn gradients of objective and a c tive constraints 283o 

C ...... ; .... ........ ......... 2690 

iNFOs? 2850 

N C AL { 2 ) =Np 4 l (2) ♦ 1 2860 

IF ( NFOG . I T , 2 ) GO TO 350 2870 

lGOTo=2 2880 

GO TO 950 2890 

350 CONTINUE 2900 

JGOTo=0 2910 

360 CONTINUE 2920 

CALL CNMNn, ( JG0T0,X,0F,G,ISC,IC,A,G1,VL8,VUB,SCAL,C,NCAL,DX,0A1,F 2930 
lI#XI,HI,m,N2,N3,N9) 2990 

iGOTosi 2950 

IF (JGOTO'.cT.O) GO TO 950 2960 

370 CONTINUE 2970 

iNFOst 2980 

IF (NAC.Gr.N3) GO TO 790 2990 

IF (NSCAL’ eO.O.OR.NFOG.EQ.O) GO to 900 3000 
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c JO 1 0 

C SCALE GRADIENTS 3020 

c .... .... ....... 30 JO 

c scale gradient of objective function, 3000 

DO 360 I=j,NOV 30S0 

380 OF ( I ) =OF ( T ) .SCAL ( I ) 3060 

IF (NFDG.fO. 1 .OR.NaC.EQ.O) GO TO 400 30 70 

C SCALF GRADIENTS OF ACTIVE CONSTRAINTS, 3060 

DO 3 R 0 J = i , NO V 3090 

SCJ=SCAL(n 3100 

DO 390 1=1, NAC 3110 

390 A(i,j)rA(j,j)»SCJ 3120 

400 CONTINUE 3130 

IF (IPRINt.lT.3.O r .NCON.E(),0) GO TO 450 3140 

c ; 3150 

C PRINT 3160 

c -1 ...... ..... — . 3170 

C PRINT ACT T VE AND VIOLATED CONSTRAINT NUMBERS. 3180 

M1=0 3190 

M2=N3 3200 

IF (NAC.Eo.O) GO To 430 3210 

DO 420 I=i, NAC 3220 

J=IC(I) 3230 

IF (J.GT.ncON) GO TO 420 3240 

GlsG(J) 3250 

ClrCTAM 3260 

IF (ISC(Ji.gT.O) Cl=CTBM 3270 

GI=GI-Cl 3280 

IF (GI.GT’.o.) GO TO 410 3290 

C ACTIVE CONSTRAINT, 3300 

M 1 =M 1 1 1 3310 

MS1(md=J 3320 

GO TO 420 3330 

410 M2rM2»i 3340 

C VIOLATED CONSTRAINT, 3350 

MSI (M? ) s J 3360 

420 CONTINUE 5370 

430 M 3=M2-N3 3380 

WRITE (6 . 7 060 ) Ml 3390 

IF (Ml.EO'^ol GO TO 440 3400 

WRITE (6,Jo70) 3410 

WRITE (6,fu90i (MS 1(1), 1:1, Ml) 3420 

440 WRITE (6,T 0 80) M 5 3430 

IF (MJ.EQ, 0) GO TO 450 3440 

WRITE (6, *070) 3450 

M3SN3+1 3460 . 

WRITE (6,1490) (MSI (I), IsM3,M2) 3470 

450 CONTINUE 3480 

c — ............... — ....... — ............. 3490 

C CALCULATE GRADIENTS OF ACTIVE SIDE CONSTRAINTS 3500 
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C — 3510 

IF (NSIPE'.eO.O) go TO 51 0 3520 

MCNUnCON 3530 

*1=0 3500 

DO 090 1=7, NOV 3550 

C LOWER ROUnd. 5560 

*I=X(I) 5570 

XID=VLB(I) 3580 

Xl2=ABS(Xioi 3590 

IF (X12,Lr.l.) X 1 2 = 1 , 360 0 

G I s ( x I D«X t ) / X | 2 3610 

IF (GI ,LT' .1 ,0E-6) GO TO 070 3620 

*l=*l+l * ioiO 

*Sl(Ml)r-7 3600 

NAC=NAC*l 3650 

IF (NaC.Gf.n3) GO TO 790 3660 

MCNlsMCNlii 3670 

00 060 J=7,nDV 3680 

060 A(N*C,J)=0. 3690 

A(NAC,I)=;i. 3700 

IC(NAC)=M r Nl 3710 

G(MCN1)=Gt 3720 

ISC(MCNl)-i 3730 

C UPPER BOUnD. 5700 

070 XID = VUB(I ) 3750 

X12=ABS(Xt0) 5760 

IF (X12.Lt.!.) X 1 2= 1 , 3770 

Gl = (Xl-xir>)/X|2 3780 

IF (GI ,LT'..i ,0E-o) GO TO 090 3790 

* 1 =* 1 ♦ 1 3800 

*$ 1 (Ml )=I 3810 

NA c =NAc+l 3820 

IF (NAC.Gf.n3) GO TO 790 3830 

MCNliMCNlj! 3800 

oo aao j=7,nOv 3850 

080 A ( NAC / J ) =o . 3860 

A(NAC,I)=7. 3070 

Ic (N ac ) =*fni 5880 

G(MCN1)=Gt 3890 

ISC(MCNi)-j 3900 

090 CONTINUE 5910 

... ...... 3920 

PRINT 3930 

.............. 390 0 

c PRINT a c T7ve SIDE CONSTRAINT NUMbeKS, 3950 

IF (IP«In7 <l T.5) GO TO 510 3960 

"RITE (6,Jo90) Ml 3970 

IF (MJ » E 0 . 0 ) GO TO 5 1 0 3980 

WRITE ( 6 f 7 1 0 0 ) 3990 

DO 500 1=7, Ml , 15 0000 
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M^sMINoIMj’, I + jU) 4010 

500 NR I TE (6, 1490 ) (MSI ( J) , Jsl , M2) 402 0 

510 CONTINUF 4 0 30 

c PRINT GRAnIFNTS OF ACTIVE AND VIOLATED CONSTRAINTS. 4040 

IF (IPRINt.lT.O) GO TO 550 4050 

"RITE (6*1350) 4 0 60 

DO 520 I=i , nDV,6 4070 

M) sMJNO (Nr>v, I *5) 4 0 BO 

520 WRITE ( 6 , i o t 0 ) I, (OF ( J) , J=I , MJ ) 4090 

IF (NAC.Eo.O) GO TO 550 4100 

WRITE (6*1360) 4110 

OO 540 1=1 ,NAC 4120 

Ml=IC(l) 4130 

M2=M 1 -NCOm 4140 

M3s0 4150 

IF (MZ.GT'o) M3=I ABS (MSI (M2) ) 4160 

IF (M2,LE'o) WRITE (6, 990) Ml 4170 

IF (M2.GT.0) WRITE (6*1000) M3 4160 

DO 530 K s J,NOV*6 4190 

MlsMlN0(Nn V ,K + 5) 4200 

530 "RITE ( 6 * 7 0 1 0 ) K * ( A ( I « J ) * J = K * M 1 ) 4210 

540 WRITE (6,7370) 4220 

550 CONTINUE 4230 

C ... ........... 4240 

C *..*««*..,.,..**•* DETERMINE SEARCH DIRECTION ********* »***.,*** * 4250 

C .... ............ 4 260 

ALP=1.0E+?o 4270 

IF (NAC.Gr.O) GO TO 560 4260 

C ... — ....... — ... ... — ....... ..... — .......... — .. 4290 

C UNCONSTRAINED FUNCTION 4300 

C ... — .... — ......... ... .............. 4310 

C EINO DIRECTION OF STEEPEST DESCENT OR CONJUGATE DIRECTION. 4320 

NVC=0 4330 

NFEASsO 4340 

KCOUnTsKCdUNT* 1 4350 

C IF KcOUNT^c.T, ICNOIR RESTART CONJUGATE DIRECTION aLGURIThM, 43o0 

IF (KC0UN7 >f ;T t ICNDIR.PR. I0BJ.E0.2) KCOUNTsl 43 70 

IF (KCOUN t> fO. 1 ) JDIRsO 4380 

C IF Jd I R = o EINO DIRECTION OF STEEPEST DESCENT. 4390 

Call CNMN^ (JDIK, SLOPE, DFT0F1, OF, S,N1) 4400 

GO TO OlO 4410 

560 CONTINUE 4420 

C 1 ... 4 430 

C CONSTRAINED FUNCTION 4440 

c — ..... ................ — ......... — ......... 4450 

C Find USaHi'e-EEASIBLE DIRECTION. 4460 

KCOUNTsO 4470 

JDIRsO 4480 

PHI = 10.*P<4t 4490 

IF (PHI ,Gt. lOOO, ) PH J s 1 0 0 0 , 4500 
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IF (NFEAS'.EO. t ) PHIsPHlt MS 1 0 

C CALCULATE DIRECTION, S. 4520 

Call CNMN nS (NVC, SLOPE, OF, G, ISC, IC,A,S,C,MSi,B,N1,N2,N3,N4,N5) 4S30 

c if this design is feasible and last iteration has infeasible, msmo 

C SET AflOBJis.OS (5 PERCENT), m5S0 

IF (NVC.Ed.O.aNO.nfEaS.GT, 1) aB0bjT = .05 MS60 

IF (NVC.Eq.O) NFEAS = 0 MS 7 0 

IF (IPRINf.LT. 3) GO TO 500 MS0O 

WRITE (6m JftO ) 4590 

00 570 I S ?,NAC,6 4600 

MtsMIN0(N 1C , 1*5) 4610 

570 WRITE ( 6 m n 1 0 ) I,(A(J,NOvt),J=I,Mj) 4620 

WRITE (6m2?0) S(NDV1) ' 4630 

580 CONTINUE M6M0 

C ......... I...... ..................................... ............. 4 6 S 0 

C ****************** ONE-DI m EnSIONal SEARCH ************************ 4660 

C ............. .... ..... — ........... 4670 

IF (SfNOVp ,LT. 1 ,0t-6. ANO, NVC.EO.O) GO TO 640 4600 

C ......................... — ........ — .............. 4690 

C FIND ALPHA To OBTAIN a FEASIBLE DESIGN 4700 

C 1 ........ ...... .... ... 4710 

IF (NVC.Eo.O) GO TO 610 4 720 

A|.P=- t , 4730 

00 600 I=?,NAC 4740 

NCI=IC(I) 4750 

C 1 sG ( NC I ) 4760 

CTC=CTAM 4770 

IF (ISC(N^i) ,GT,0) CTCsCTBM 4780 

IF (Cl.LE'.CTC) GO TO 600 4790 

ALPlsO, * 4800 

DO 590 Jsj.NOV 4010 

590 ALF1:*LPUS(J)*‘(I,J) 4020 

ALP1=ALP1*A(I,N0V2) 4830 

IF (ARS(A| pi ).LT.t .OE-20) GO TO 600 4040 

ALP1=-C1/»LP1 4850 

IF (ALPl .RT.ALP) ALPiALPl 4860 

600 CONTINUE 4870 

610 CONTINUE 4000 

C ........................................ — ............ 4090 

C LIMIT CHANCE TO AB08J1.0BJ 4900 

C ........... .... — ............. 4910 

ALPlsl .0E;?o 4920 

SlsABSIOB.t) 4930 

IF (SI.LT*.. 01) S I s , 0 1 4940 

IF (aBS<S| oPET.GT.l .0E-20) aLP 1 = AfiOB J 1 * S I / SLUPE 4950 

ALP1 = ABS ( | L P 1 > 4960 

IF (NVC.Gt.o) AL? 1 = 1 0 . * a LP 1 4970 

IF (ALPl .1 T.ALP) ALP = ALP 1 4980 

C .... ................................................... 4990 

C LIMIT CHANGE in VARIABLE to ALPHA* 5000 
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c 5010 

ACPI 1 = 1 ,0f + 20 50<!0 

DO 620 I = J , NO V 50 iO 

si=ahs(S(t)) 5oao 

*I=AbSCX(j)) 5050 

IF (SI .L r . 1 .Of- t o .OR. X I ,LT . 0. 1 ) Go TO 620 S060 

ALPt = ALPH*x.x I/SI SO 7 0 

IF (ALPt .1 T.alPI 1) ALP 1 1 r ALP 1 5060 

620 CONTINUE 5090 

IF (NVC.Gf.O) ALP1 I=10.*ALPI 1 SlOO 

IF (ALPir LT.ALP) ALPsALPIl 5110 

IF (ALP.Gt. 1 ,0E*20 ) ALP=l,0E*20 5120 

IF (ALP.Lf.1 .OE-20) ALP= 1 , 0E-20 5130 

IF (IPRIN T>L T,5) GO TO 690 5190 

WRITE (6.i JPO ) 5150 

DO 6 JO I = i" , NOV . 6 S 1 6 0 

Ml=MlNO(Nnv, 1+5) 5170 

6 JO WRITE (6,iolO) I, (S(J),J=I,M1) 5160 

WRITE (6,uiO) SLOPE/ALP 5190 

690 CONTINUE S200 

IF (NCON.rt.O.OR.NSIDE.GT.O) GO TO 660 S210 

C . 1 5220 

C 00 ONE-DIMENSIONAL SEARCH FOR UNCONSTRAINED FUNCTION 52J0 

c 5290 

JGOTO=0 5250 

650 CONTINUE 5260 

Call cnmn^s ( x, s, of ,g, a, ic , scal.c ,ni , ns , nj,n9) 5270 

I GO To -9 5280 

IF (JGOTO' GT.O) GO TO 95o 5290 

JO 1 R= 1 ‘ 5500 

C PROCEED To CONVERGENCE CHECK. 5J10 

GO TO o80 5 J20 

C .................. ...... 5 J JO 

C SOLVE OnE-DI m ENSIONaL SEARCH PROBLEM FOR CONSTRAINED FUNCTION 5J90 

C - 5 J50 

660 CONTINUE 5560 

JG0To=0 5570 

670 CONTINUE 5580 

Call CNMN n6 (X > DF,G,ISC,S,G1,G2 ,VlB,VUB,SCAL,Ni,N2) 5590 

I GO TO = S 5900 

IF (JGOTO'GT.O) GO TO 95 0 5910 

IF (NAC.Eo.O) JDIRsl 5920 

C ..... ...... 5950 

C **«**»*«*„,,«»»**»» UPDATE ALPHAX ************************** 5990 

c ...... ... ....... ..... ............ ............ 5950 

680 CONTINUE 5960 

690 CONTINUE 5970 

IF (aLP.Gt. 1 .OE+19) ALP=0, 5980 

C UPDATE ALPHAX TO B£ AVERAGE UF MAXIMUM CHANGE IN X(I) 5990 

C AND ALHPA*. 5500 



143 





subroutine conmin - Constrained function minimization 


SEPT. 77 






alpi 1=0. 




5510 




DO Too 1=7, NDV 




5520 




SIsABS(S(T) ) 




5530 




XI=ABS(X(T)) 




5540 




IF (XI .LT’„ I .OE-tO) GO TO 700 




5550 




ALP1 =ALP«SI /X T 


< 


5560 




IF (ALPl.fiT.AtPH) ALP 1 1 = A |_P I 




55/0 


700 


continue 




5560 




ACPn = .5*'fAL P lUALPHA)() 




5590 




aLP12=S.*»l ph aX 




5600 




IF (ALPll' 0T.ALP12) A|_P11=ALP12 




5610 




ALPHAXsALpi 1 




5620 




NCOBJsNCUqj+1 




5630 


C 


ABSOLUTE CHANGE IN objective. 




5640 




OBJDsOHJl .OBJ 




5650 




OBJBsABS(nRjD) 




5660 




IF (OBJB.i T. 1 .OE-IO) OHJB=0, 




5670 




IF (NAC.Eq.o.OR.UBJB.GT.O. ) NCOBJsO 




5680 




IF (NCOBJ'.GT. 1 ) NCOBJsO 




5690 


c 






5 7 0 0 


C 


PRINT 




5710 


c 






5720 


c 


PRINT MOVp PARAMETER, NEW X-VECTOR AND CONSTRAINTS. 




5730 




IF (IPRINt.lT.J) GO TO 7 1 0 




5740 




WRITE (6, iuoO) alp 




5750 


710 


IF (IPRINi # i.T. 2) GO TO 7(50 




5760 




IF (OrJb.GT.O.) GO TO 720 




57 70 




IF ( IPRTNt.fO.2) write (6, 1010) ITER, OBJ 




5780 




IF ( IPRINi.GT .2) hrUe (6.U20) OBJ 




5790 




GO TO 700 




5800 


720 


IF (IPRINi.pQ.2) GO TO 730 




5810 




WRITE (6,T«30) OBJ 




5820 




GO TD 700 




5830 


730 


WRITE (6, 7oo0) ITER, OBJ 




5840 


7 4 0 


WRITE (0. i ohO) 




5850 




DO 750 1=7, NDV 




5860 




• ffi = i . 




5870 




IF (NSCAL'NE.O) FFjsSCAL(I) 




5880 


750 


G 1 ( I ) =FF 1 * x f I 1 




5890 




DO 760 1 = 7, NOV, 6 




5900 




mi=mino(n D v, US) 




5910 


760 


"RITE (6.1010) I, (Gl ( J) . J=I .Ml ) 




5920 




IF (NCON.ro. 0) GO TO 700 




5930 




WRITE (6.7oAO) 




5940 




DO 770 1=1 ,mC0N,6 




5950 




Ml=MINO(Nf- 0 N, ItS) 




5960 


770 


"RITE ( 0 , 7 0 1 0 ) I , (G( J) , Jsl , Ml ) 




5970 


760 


CONTINUE 




5980 


c 






5990 


c 


CHECK CONVERGENCE 




6000 
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C - 6010 

c stop if iter equals itmax. 6020 

IF (ITER. r,E, ITMAX) GO TO 790 6030 

C ............... ........................ 60 9 0 

C ABSOLUTE CHANGE IN OBJECTIVE 6050 

C ... — ....... — ..... — ................ 6060 

OejBsABS(nRjD) 6070 

K08 JsKOBJ . ( ' 6080 

IF (ORJR.r,£,OABFUN,OR.NFEAS.GT,0)KO8J=O 60 90 

C .............. ............ 6100 

C RELATIVE change In OBJECTIVE 6110 

c — 6120 

IF (ARS(Oqj) ) ,GT, 1 ,0E-10) OR J0=08 JD/ ABS ( 08 J 1 ) 6130 

Afl0RJlR.5*(AHS(A80BJ)+A8S(0BJD) ) 6l«0 

AROBJrABSfOSJO) 6150 

I OB J = 1 08 J 1 1 ‘ 6160 

IF (NVC.Gt.0.0R,08JD,GE.DELFUN) Io8J=0 6170 

IF (IOBJ.r.E. ITRM.OR.KObJ.GE. ITRM) GO TO 790 6180 

OBJUnej 6190 

c ...l...... ............ .......... ... 6200 

C REOiiCF CT IF OBJECTIVE FUNCTION IS CHANGING SLOwLV 6210 

C ...... ;... ......... ........... 6220 

IF (IOBJ.it. 1 .OR.NAC.EQ.O) GO TO ?70 6230 

CTrDCT*CT 6290 

CTL=CTL*DrTL 6250 

IF'ABS(CT u lT.CTMIN) CT = -CTMIN 6260 

IF(A0S(CT|) .LT.CTLMIN) CTL=-CTLMIN 6270 

c ...... ..... .................... 6280 

C CHECK FOR UNBOUNDED SOLUTION 6290 

C 6 30 0 

C STOP IF OgJ IS LESS TH A N -1.0E+9G. 6310 

IF (0BJ.Gt.-1 .OE + 90) GO TO 270 6320 

WRITE (6,980) 6330 

790 CONTINUE 6390 

IF (NAC.Gp.N3) WRI TE (6, 1500) 6350 

C ...... 1 .................................................... 6360 

C **************** FINAL FUNCTION INFORMATION ******************** 6370 

c ..... ................................... ..... 6380 

IF (NSCAL'.PQ.O) GO TO 820 6390 

C UN-SCALE THE DESIGN VARIABLES. 6900 

00 BIO I=i,NOV 6910 

XI=SC‘L(I) 692 0 

IF (NSIDE.eO.O) GO TU 810 6930 

VLB ( I ) I * VLB ( I ) 6990 

VUB ( I ) s X I * vt|B ( I ) 6950 

810 X(I)sXI*Xjl) 6960 

C ...... ... ....... 69 70 

C PRINT FINAL RESULTS 6980 

C 1..-- .......... ............................... 69 9 0 

820 IF (IPRINT.EQ.0.OR.NAC.GE.N3) GO TO 990 6500 
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WRITE (6,7siO) 






6510 




WRITE (6»ia?0) OBJ 






6520 




WRITE (6, j UbO) 






6530 




00 830 I=7,nDv,8 






6540 




MlsHJNOCNnv, 1 + 5) 






6550 


830 


WRITfc ( 6 » ) o i 0 ) I,(X{J),JsI,Mi) 






6560 




IF (NCON.fo.O) GO TO 890 






6570 




"RITE (6,tu*0) 






6580 




DO 8ao I=7 ,nC0N,o 






6590 




Ml=M]NO(NrON» I tS) 






6600 


840 


WRITE (6nO|0) I , (G(J) , J = I ,mj ) 






6610 


C 


determine which constraints ARE 


ACTIVE ano PRINT, 


6620 




nac = o 






6630 




NVC = 0 






6640 




00 860 I=7,NC0N 






6650 




cta=ctam 






6660 




IF (ISC(h.GT.O) CTA=CTBm 






6670 




Gl sG ( I ) 






6680 




IF (GI.GT’cTA) GO TO 850 






6690 




IF (GI.LT CT.ANO.ISC(I).EO.O) GO 


TO 


860 


6700 




IP (GI.LT. CTU.AN0.ISC(I),GT,0) GO TO 


860 


6710 




NAC=NAC* 1 






6 720 




I C ( nac ) - l 






6730 




GO TO 860 






6740 


850 


NVC=NVC* 1 






6750 




HS1 (NVC)=r 






6760 


860 


CONTINUE 






6770 




write (6,7o6<n nac 






6780 




IF (NAC.Eo.O) GO TO 870 






6790 




WRITE (6* ) o70 ) 






6800 




WRITE (6,7 490 ) (IC(J),J = l,NAC) 






6810 


870 


WRITE (6,7o«0) nvc 






6820 




IF (NVC.Eo.O) GO TO 880 






6830 




WRITF (6 , 7 07 0 ) 






6840 




WRITE (6,7o 90) (MSI (J), Jsl,NVC) 






6850 


880 


CONTINUE 






6860 


890 


CONTINUE 






6870 




IF (NSIOE* EO.O) GO TO 92 0 






6880 


C 


OETERMINe'whICH SIDE CONSTRAINTS 


A Rt 


active and print. 


6890 




NAC = 0 






6900 




DO 9J0 1=7, NOV 






6910 




XI=X(I) 






6920 




X IO=VLB ( I j 






6930 




Xl2=ABS(X T 0) 






6940 




IF (XI2.LT.1.) X 1 2= I , 






6950 




GIs(xiO-Xj,/Xj2 






6960 




IF (GI.LT.-j.0E-6) GO TO 900 






6970 




NAC=NAC+1 






6980 




MSI (NAC ) =. I 






6990 


900 


X 1 0 = VUB ( I j 






7000 
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XiasABS(XrD) 7010 

IF (X12.LT.1.) Xl2=l, ' 7020 

GI=(XI-XIn)/Xl2 7030 

IF (GI ,LT'..t .OE-6) GO TO 01 0 7000 

NaC = NAC ♦ 1 * 7050 

MSl(NAC)=i 7060 

910 CONTINUE 7070 

WRITE (6,?o90) naC 7080 

IF (NAC.Eo.O) GO TO 950 7090 

WRITE ( 6 » ^ i 0 0 ) 7100 

WRITE (6,ia90) (MSI (J), J = 1 ,NAC) 7110 

920 CONTINUE 7120 

WRITE (6,hsO) 7130 

IF (ITER.nF.ITMAX) WRITE (6,1160) 7100 

IF (NFEAS'^r.E. 10) wRITF (6,1170) 71S0 

IF (IOHJ.Re.ITRM) WRITE (6,1190) I TRM 7160 

IF (KOBJ.rf.ITRM) WRITE (6,1200) ITRM 7170 

WRITE (6,15)0) ITER 718-0 

WRITE (6,is?0) NCAL(l) 7190 

IF (NCON.rt.O) WRITE (6,1530) NCA|_( 1 ) 7200 

IF (NFDG.me.O) WRITE ( 6 / 1500 ) NCALI2) 7210 

IF (NCON.rt.O, AN0.NF0G.E0.2) WRITE (6,1550) NCAL(2) 7220 

C ... 7230 

C RE-SET BASIC PARAMETERS TO input VALUES 7200 

C 7250 

900 I TRM= I DM 1 7260 

ITMAxrlOM? 7270 

ICNDir=IOmj 7280 

DELFUNsDMj 7290 

DABFUNsOM? 7300 

C T sOM 3 7 3 1 0 

CTMlNsDMO 7320 

CTL=0M5 7330 

CTLMINlOMf, 7300 

ThETA=0M7 7350 

PH I *D M 8 7360 

F0CH=0M9 7370 

FDCHMrOMln 7380 

I GO To = 0 7390 

950 CONTINUE 7000 

IF (NSCAL'.EO.O.OR. IGOTO.EO.O) RETURN 7010 

C UN-SCALE VARIABLES. 7020 

00 960 I=i , nOv 7030 

C(I)sX(I) 7000 

960 X(l)rX(I).s C AL(I) 7050 

RETURN 7060 

c ;. ....... — 7070 

C F0RHATS 7080 

C .............................. ........... — ........ — .. 7090 

C 7500 



"v 
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970 FORMAT </>/S*/72HA COMPLETELY UNCONSTRAINED FUNCTION WITH A LINEAR 7510 
1 OfiJECTIVp iS SPECIFIE0-'/10X,8mLIN0BJ s, IS/10x,8hncON =,IS/10X,8 7520 

2HNSIDE =, IS//5X, 35HC0NTROL RETURNED TO CALLING PROGRAM) 7530 

980 FORMAT (///SX,56HC0NMIn HAS ACHIEvEO A SOLUTION OF OBJ LESS THAN - 7590 

11 ,OE + R0/5y,32HSOLUTION APPEARS ToaB£ UNBOUNoED/SX , 26H0P T I M I Z A T I On 7550 

2IS TERMINitEO) 7560 

990 FORMAT (5x, i 7HC0NS TRAIN! NUMBER, IS) 7570 

1000 FORMAT (5x,27hSIDE CONSTRAINT ON VARIABLE, 15) 7580 

1010 FORMAT (3x, l5, IH) ,2X, 6E 1 3.5) 7590 

1020 FORMAT (/sx, 3SHL INfcAR CONSTRAINT IDENTIFIERS (ISC)/5X,36HNON-ZERO 7600 

1INOICATES LINEAR CONSTRAINT) 7610 

1030 FORMAT (3x, 15, 1 h ) , 2X , 15l5) 7620 

1090 FORMAT (/SX,26HALL CONSTRAINTS ARE LINEAR) 7630 

1050 FORMAT (/sx,30HALL CONSTRAINTS ARf NON-LINEAR) 7690 

1060 FORMAT (/sX.RhTHERE ARE , 1 5 , 1 9H ACTIVE CONSTRAINTS) 7650 

1070 FORMAT (5y ,22 hcONSTRAinT NUHh£RS aR£) 7660 

1080 FORMAT (/sx,9hTh£RF. ARE,I5,21H VIOLATED CONSTRAINTS) 7670 

1090 FORMAT (/sX,9hIHFRE ARE,I5,24H ACTIVE SIDE CONSTRAINTS) 7660 

1100 FORMAT (5x,95HDECIStON VARIABLES aT LOWER OR UPPER BOUNDS, 30H (MIN 7690 
1US INOICAtES LOWER BOUND)) 7700 

1110 FORMAT (/sX,2?HONF-OIMENSIONAL SEaKCH/SX, 15HINITIAL SLOPE s,E12.9, 7710 

12X, IbhPROposEO ALPHA : , E 1 2 . <i ) 7720 

1120 Format </;/SX,3SH. . CONmIn DETECTS VLB( I ) ,GT . VUB ( I ) /5X ,57hFI X is 7730 

1SET X( I )=vlB ( I )=VU8( I ) 5 .5* ( VLB( x ) fVl|B( I ) FOR I = ,lS) 7790 

1130 FORMAT T///SX , 9 1 H» « CONmIN OETECTS INITIAL X ( I ) , L T , VLB (I) /5X , 6Hx ( 7750 

II) =,E12.a,2X,8HVLB(I) =,E12.9/5X,35 hx(I) IS SET EQUAL TO VLB(I) F 7760 
20R I s , IS ) 7770 

1190 FORMAT (///sX,91H. . CONMIN DETECTS INITIAL X(I),gT.VUB(I)/ 5X,6HX( 7780 
II) =,E12./|,2X,8HVUB(I) =,E12.9/5X,35HX(I ) IS SET EQUAL TO YUB(I) F 7790 
20R I s , 1 5 ) 7800 

1150 FORMAT (/sX,21HT£RmINaTION CRITERION) 7810 

1160 FORMAT ( 1 o x , WHITER EQUALS ITmaX) 7820 

1170 FORMAT (lftX,62HTEN CONSECUTIVE ITERATIONS FaILEO TO PROOUCE A FEaS 7830 

IIbLE DESIGN) 7890 

1190 FORMAT ( lnX,95HABS(l-OBJ(I-l )/08J ( I)) LESS THAN DELFUN FOR , 1 3, 1 1 H 7850 

IITERaTIONg) 7860 

1200 FORMAT ( 1 ox, 93HABS(0BJ ( I )-OBJ( I-l ) ) LESS THAN Da 8FUN FUR,I3>llH 7870 

1 ITERATION tj) 7880 

1210 FORMAT (/sx,22HNUMB£R OF ITERATIONS = ,I5) 7890 

1220 format (/gx, 2 bhconstra int parameter, beta =,Eia,5) 79oo 

1230 Format (1m) ,////12X,27(2h. ) / 1 2x , i h. , 5 l x , i h,/ 1 2X , i h, , 20 x , 1 i hc 0 N 7910 

1M I N, 20X t 1 H»/ 1 2x, 1H» , 51 X, 1 H*/ 1 2X , 1 H« , l5x, 2lH FORTRAN PROGRAM FOR 7920 

2* 1 5x, 1 H*/ I 2x» 1 H» , 51 X, 1 H»/ 1 2x, 1 H», 9X, 33HCONSTRA JNEo FUNCTION MINIMI 7930 

3ZAT tON,9X a 1H*,51 X, 1H*/12X, |H*,2 X,<i6HNASA/AMES kESEaRCH CEN 7990 

9T£R , MOFFETT FIELD, CALIF .» 1 x, lri*/ 1 2 x, 1H», 51 X, 1H«/1 2X, Ih* , 1 3X,25hV 7950 

5ERSI0N II JULY, 1975, 13X, 1 H./ 12 X, 1H., Six, 1H*/12X,27(2H* )) 7960 

1290 FORMAT ( />//5x, 33hcONSTRa INEO FUNCTION M I N I M 1 Z A T I ON//5 X , 1 8HCON T ROL 7970 
I PaRaMETEpS) 7980 

1250 format ( /<jx , 60H IPR in T Nov ITmaX ncon NSIDE ICNOIR nsc 7990 
1 *L NFDG/8I8//5X, 12HLINOBJ I TRM, 5X, 2HN1 ,6X ,2hN2, 6X,2hn3,6X,2hN9, 8000 



SUBROUTINp cONMIN . CONSTRAINED FUNCTION MINIMIZATION SEPT, 77 

29X, 2HN5/8tr) 6010 

1260 FORM AT (/ox, tlHFOCH, 1 2X , 5HF DC HM / 3X , 2E 1 U , 5 ) 8020 

1270 FORMAT (/OX.2HCT, lax,5HCTMlN, iiX,3HCTL, 13X,6HCTLMIN/ix ( «(2x,E1«.S) 8030 

1//RX,5HTHf T A,11X. 3HPHI, 1 3X,6H0£LFIJN, 10X,6HDABFUN/lX,U(2X,Eia.5) ) 8 0*40 

1200 FORMAT (/^x.aOHLOMER BOUNDS ON DECISION VARIABLES (VLB)) 8050 

1290 FORMAT (/e;x, UOMUPPfcR BOUNDS ON OECISION VARIABLES (VUB)) 80b0 

1 300 FORMAT (////5x,35HUNCON STRAIN ED FUNCTION MINIMIZATI0N//5X, 18HC0NTR 6070 

10L PARAMETERS) 8080 

1310 FORMAT (/SX.21HSCALING VECTOR (SCaL)) 8090 

1320 FORMAT C////Sx,22HBEGIN ITERATION NUMBER, IS) 8100 

13 3° FORMAT (/qx.NHCI =,E1«.5,5X.5HCTL = , E la . 5 , 5* t 5 HPH I s,El4.5) 8110 

1 390 FORMAT ( /qx , 25HNE * SCALING VECTOR (SCAL)) 8120 

1 350 FORMAT (/sx, 15HGRA0IENT OF OBJ) 8130 

1360 FORMAT (/SX,9<|HGRA0IENTS OF ACTIVE AND VIOLATED CONSTRAINTS) 8190 

1370 FORMAT (ly ) 8150 

1380 FORMAT (/sx , 37HPUSH-OFF FACTORS, (THETA(I), 1=1, NAC)) 81o0 

1390 FORMAT ( /fx , 27HSE AR CH DIRECTION (S-VECTOR)) 8170 

1900 FORMAT (/FX, 18HCALCULATED ALPHA s,E19,5) 8180 

1910 FORMAT ( / / / /5x , 6 H I TE R =, I5,5X,5HObJ = , E 1 9 , 5 , 5X , 1 6HN0 CHANGE IN ORJ 8190 

1 ) 6200 

1920 FORMAT (/FX.3H08J = , 1 1 5 . 6 , 5 X , 1 6HN0 CHANGE ON OBJ) 8210 

1 930 FORMAT (/fX,5hOBJ = , E 1 5 « 6 ) 8220 

I960 FORMAT (/>//5x,6H ITER = , 1 5 , 5 X , 5 HO R J =,E1U,5) 8230 

1950 FORMAT (//5X,28HINITIAL FUNCTION INFORMAT [ ON// 5 X , 5 HO 8 J =,El5.6) 8290 

i960 FORMAT ( / r x , 29HDE C 1 S I ON VARIABLES (X-VECTOH)) 8250 

1970 FORMAT (3y,7El3.U) 8260 

I960 FORMAT (/qx,2RHCONSTRAINT VALUES (G-VECTOR)) 8270 

1990 FORMAT ( 5x , 1 5 1 5 ) 8280 

1500 FORMAT (/SX.59HTHE NUmrER UF ACTIVE AND VIOLATED CONSTRAINTS EXCEE 8290 

IDS N 3 . 1 ,/c;x, 66 H 0 IMENSI 0 NED SIZE OF MATRICES A AND 9 AND VECTOR IC 8300 

2 1 S INSUFFrcIENr/5X,6lH0PTIMlZAI ION TERMINATED AND CONTROL RETURNED 6310 

3 TO MAIN PROGRAM.) 8320 

1510 FORMAT ( Ihi ,////9X, 30HFINAL OPTIMIZATION INFORMATION) 8330 

1520 FORMAT (/5X,3?HOBJECTIVE FUNCTION WAS E V A L UA TE D , 8X , I 5 , 2X , SHT I MES ) 8390 

1530 FORMAT (/rx , 35HcONSTRA j n T FUNCTIONS *£«£ E X ALU A T £o , 1 1 0 , 2 X , 5H T I MES ) 8350 

1 5u 0 FORMAT (/qx, 36HGRADTENT OF OBJECTIVE waS C ALCUL A T£D » 1 9 , 2X , 5H T I MES ) 8360 

1550 FORMAT (/^X,90HGRAOILNTS OF CONSTRAINTS *£R£ C aLC UL A I E D , I 5 , 2 X , 5H (I 8370 

1MES) 8380 

ENO 8390 
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SUBROUTINp C NMNo 1 (JGOTO,X,OF,G#ISC/lC»A,Gl,VLB»VUB,SCAL,C,NCAL#OX 10 

1 »OXl , FI* x}, I I I,Nl ,N2 , NS, n9 ) 20 

COMMON /Cnmn I / IP«INT,NDV,ITMAX,NcON,NSIDE, ICNO I R , NSC AL , NFOG , FDC H , JO 

lFOCHM,cT»rTMlN,CTl,cTLMlN, TM eTa, PH l » N ac * DELFUN , o ABFUN , L INOBJ, I TRM, 9 0 

2ITER, INFOr,, TGOTO, INFO, OBJ SO 

D I ME NS I ON XfNn,0F(Nh,G(N2) , I SC ( N2 ) , I C ( N3 ) , A ( N 3 , N 1 ) , G l ( N2 ) , VL 6 ( N 1 6 0 

1),VUR(N1).sCAl(N1),NCAlC2),C(N«) 70 

C ROUTINE To CALCULATE GRADIENT INFORMATION BY FINITE DIFFERENCE. 60 

C BY G. N. VANDERPLAATS JUNE , IR72. 90 

C NASA. ameS pfSeaRcm CENTER, MOFFETT FIELD, CALIF, 100 

n IF (JGOTO'fO.1) GO TO 10 110 

IF (JGOTo'eO.2) GO TO 70 120 

INFOGsO ‘ 130 

lNF=INFO lao 

NAC=0 ISO 

IF (LIN08J.NE.O. AND. ITER. GT, 1) GO TO 10 160 

C ... 1 70 

C GRADIENT of LINEAR OBJECTIVE 180 

C 1.. .................................... ....... 190 

IF (NFDG.fq. 1) JGOTO=l 200 

IF (NFOG.PO.I) RETURN 210 

10 CONTINUE 220 

JGOTo=0 230 

IF (NFDG.FO. 1 .AND.NCOn.EO.O) return 290 

if (ncon.fq.o) go to uo 250 

C ...................... .............. 260 

C * * * OfTFRMINE WHICH CONSTRAINTS are ACTIVE or VIOLATED * » * 270 

C ........................................ ... 280 

DO 20 1=1, NCON 290 

IF (GCI).iT.CT) GO TO 20 300 

IF (ISCCIi.gT.O.AND.G(I).LT.CTL) GO TO 20 310 

NAC=NAC»1 320 

IF (NAC.Gf.nJ) RETURN 330 

IC(NAC)=I 390 

20 CONTINUE 3S0 

IF (NFDG.fD. 1 .AND.NAC.EO.O) RETURN 360 

IF ((LINObj.GT.O. AND. ITER. GT. l). AND. NAC.EO.O) RETURN 370 

C ... ................ ..... .................... 380 

C STORE VALUES OF CONSTRAINTS IN G1 390 

c ; ... ooo 

DO 30 1=1, nCOn 910 

30 G 1 c I ) =G C I Y 920 

90 CONTINUE 930 

JGOTo=0 990 

IF (NAC.Eo.O.AND.NFDG.EO.1) RETURN 980 

C ....... ..1... .................... ....... ....................... 960 

c calculate gradients 970 

C 1.. 960 

I NFOG = 1 990 

I NFOs 1 500 
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50 



60 



80 

90 



C 

C 

C 

100 



fi=obj 




510 


II 1 = 0 




520 


1 1 1 = 1 1 1 ♦ t 




530 


XIsX(III) • 




54 0 


DXsF DCH* X f 




550 


OXs ARS ( OX ^ 




560 


F DCH l sFDC hm 




570 


IF (NSCAL'nE.O) FDCHl=FDCHM/SC4t( I I I ) 




580 


IF (OX.LT'foCHI ) OXsFOCHl 




590 


XlsX I+OX 




600 


IF (NSIDE' pq.O) GO TO 60 




610 


IF (XI .IT' Vl_B( I I I ) . ANO.DX.IT.O. ) xl = XT-OX 




620 


IF (Xl,GI.VUb(III).AHD,DX,GT.O.) XlsXI-OX 




630 


DX1=1,/DX 




640 


X(III)=Xi; n x 




650 


NCAL(l)=Nr*L(I)tl 




6b0 


FUNCTION EVALUATION 




680 








JGOTOs2 




700 


RETURN 




710 


CONTINUE 




720 


x(in)sxi 




730 


IF (NFDG.ro. 0) OF(III)sOX1»(OBJ-FI) 




740 


IF (N4C.Eo.rt) GO TO 9o 




750 


OfTE Km I n E GRADIENT CONPONfNTS OF ACTIVE 


constraints 


770 


00 60 Jsl.NAC 




790 


I 1=IC(J) 




800 


A(J# III)=nxi*CG(ll)-Gl(Ii)) 




810 


CONTINUE 




820 


IF (III, Lr. NOV) GO TO 50 




830 


infog=o 




840 


INFOsINF 




850 


JGOTOsO 




860 


OBJsFI 




870 


IF (NCON.fo.O) RETURN 




880 

• 890 


Store current constraint values back in 


G-VEC t OR 


900 

• 9 10 


00 loo I=T,nC0N 




* T i u 

920 


G(I )SG1 (I> 




930 


RETURN 




940 


end 




950 
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SUBROUTINE QNHN02 (NCALC .SLOpE, OFjOF 1 , OF, s, N1 ) 10 

COMMON /CnmnI/ IPRINI,NOV,ITMAX,NCON,NSIDE,ICNOIR,NSCAL,NFDG,FOCH, 20 

lFOCHM,cT,rTMlN,cTL,C TLMIN, THt T a , Ph I , NaC , OELFUN, DA0FUN, L I NOB J, I TRM, 30 

2ITER, INFOc, IGOTO, INFO, OBJ 90 

OIMENSION DF(NI),S(Nn SO 

c Routine Tn determine conjugate direction vector or direction bo 

c Of STEEPEST OfScENT FOR UNCONSTRAINED FUnc T 1 UN MINIMIZATION. 70 

C BY G. N. vaNOfRRIaaTS APRIL, 1972. 80 

C NaSA-aMES RESEARCH CENTER, MOFFETT FIELD, CALIF, 90 

c ncalc = Calculation control. ioo 

C NCALC s 0, S s STEEPEST DESCENT, 110 

C NCALC si, s : CONJUGATE DIRECTION, 120 

c conjugate o r Rec t i on is found by fi.etche«-ree v es algorithm, 130 

c --1 — ........ ............. l ao 

C CALCULATE norm OF GRADIENT VECTOR 150 

c .......... ............. 160 

oft of s o , wo 

00 10 1*1. NOV 180 

OF 1 *DF ( l ) 190 

10 OFTOF=OFToF*OFI»DFI 200 

c ........... 210 

c ****««*»»* FINO DIRECTION S ********** 220 

C - 230 

IF (NCALC' NE. 1) GO TO 30 200 

IF (DFTDF; lT.I.OE-20) GO TO 30 250 

C - 2oO 

C find fee TCHER-REEV tS CONJUGATE DIRECTION 270 

C ; 230 

BETAsOFTDf/oFTDFI 290 

SLOPE = 0 . 300 

DO 20 1=1, NOV 310 

DFIsOF(I) 320 

SIsflETA.Sf n-DFI 330 

SLOPE=SL0pe+Si *OF l 390 

20 S ( ] ) =S I 3S0 

GO TO SO 380 

30 CONTINUE 370 

NCALC=0 360 

c 1 ..... 390 

C CALCULATE DIRECTION OF STEEPEST DESCENT 900 

c — .... 9io 

DO 90 1 = 1, MOV 920 

90 S(l)s-DF(T) 930 

SLOPE=-OF T oF 990 

50 CONTINUE 950 

C ... — ............................... ......... 960 

C NORMALIZE s TO max A 0S VALUE OF UNITY 970 

c — ... ....... — ....... ....................... 980 

SlrO, 990 

DO 60 1*1, NOV 500 



X 
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S2 = ABS(S(n ) 

IF (Sa.GT'.si) S 1 =S 2 
60 CONTINUE 

IF (SI ,UT* i .0E-20) St=l.oE-20 
S 1 = 1 , /$ 1 
OFTDF1=OFtoF*S1 
00 7 o 1 = 1 NOV 
70 S(I)=Sl*S f l) 

SLOPF=Sl*sunPE 

RETURN 

end 



510 

520 

5 JO 

540 

550 

560 

570 

580 

590 

600 

610 
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SijBPOuTINf cNHNOJ (X,S,DF,G,A, IC,$CAL,C,Nt ,N2,N3,N4) 10 

COMMON /CnmN l / IPRINI,nDV, ITMaX,ncON,nSIDF, ICN0IH,NSCAL, NFDG,FDCh, 20 

lF0CHM,cT,r TMlN,cTL,C riMlN, T heTa,PhI /N iC, DELFUN, dabFUN,LIN08J, I TRM, 30 

2ITE«, INFOfi, 10070, INFO, OBJ 40 

common ,/CriNSAv/ 01(20 ), slope, 02(3), xi, 03, so 

2alp,FFF, a7,a 2, A3,Aa,Fl,F2»F3,FU,oa(a), A pp, oO 

«DS(8) ,RSP*CF, 101 (B) ,KC0UNT,NCAL(2) , 1 02 ( a ) , K0UNT , 1 03 ( 8 ) , 7 0 

*JG0T0, ISPiCF (2) 80 

DIMENSION X(Nt),5(N!),DF(Nl),G(N2),A(N3,Nl),IC(NS),SCAL(Nl)»C(NU) 9 0 

ROUTINE Tn SOLVE ONE-P Im^nS IUNal SEARCH IN UNCONSTRAINED 100 

MINIMIZATION USING 2-POInT QUADRATIC I N T ERROL A 1 1 ON , 3-POINT 110 

CUBTq I N T pRPOL A I i On * no a-POINT CUBIC INlcRPOLATlON, 120 

BY G. N. vANOEHRLAATS APRIL, 19 72, 130 

NASA-AMES rfSFARCH CtNIER, MOFFETT FIELD, CALIF, 140 

ALP = PROPOSED move Parameter. 150 

slope = Initial function slope = s-transpose times of, iso 

SLOPF must re NEGATIVE. 170 

OBJ = initial FUNCTION VaLUE. 180 

ZRO=0. 190 

IF (JGUTO'fO.O) GO TO 10 200 

GO to (50 ‘no, 1 10, 140, 180,220,270) , JGOTO 210 

220 

INITIAL INFORMATION (ALPHArO) 230 

... ......... ........................... ..... 240 

IF (SLOPE'.lT .0. ) GO TO 20 250 

ALP=0. 260 

RETURN 270 

CONTINUE 280 

IF (IPRIN7.C.T.4) WRITE (6,560) 290 

FFF=O0J 300 

*PI=0. 310 

Also, 320 

Fl=OBJ 330 

A2tALP 340 

A 3 = 0 . 350 

F 3=0 . 360 

APsAJ 370 

FOUNT = 0 380 

;. .... 39o 

MOVE A DISTANCE AP*S and UPDATF FUNCTION value 400 

... ................................. ... ..... 410 

30 CONTINUE 420 

KOUNT=KOUnT*1 430 

DO 40 1=1 NOV 440 

40 X(I)sX(I) f AP*S(I) 450 

IF ( IPRINt.gT, 4) WRITE (6,370) AP 460 

IF (IPRIM T> r,T.U) WRITE (6,380) ( X ( I ) , I = l , NO V ) 470 

NCAL ( 1 ) =NfaL ( 1) ♦ 1 460 

JGOTC=l 490 

RETURN 500 
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50 CONTINUE 510 

F2=0BJ 530 

IF ( IPRINr.GT.aj WRITE (6,390) F2 530 

IF (F2.lT‘ t n) GO TO 120 590 

C 550 

C CHECK FOR ILL-CONDITIONING 5b0 

c 1 570 

IF (KOUNT’.gT.S) GO TO 60 580 

FF:2 , *ABS f F 1 ) 590 

IF (F2.LT'. FF) GO TO 90 600 

FFs5,«*8SfFtI 6 l 0 

IF (F2.LT*. FF) GO TO bO 620 

*2=.5»A2 630 

A P = - A 2 690 

ALP=A2 650 

GO TO 30 660 

60 F3=F2 670 

A3=A2 680 

A2=.5*A2 690 

C 1 ............ 700 

C UPDATE DESIGN VECTOR ANO FUNCTION VALUE 710 

C ... .......... ................... ........ 720 

APsAp-ALP 730 

ALPFA2 790 

DO 7 o 1 = 1 NOV 750 

70 X(I)=X(I)+AP*S(I) 760 

IF (IPRIN t> gT.U) WRITE (6,370) A2 770 

IF (IPRINt.gT.O) "RITE (6,380) ( X ( I ) , I = 1 , NO V ) 780 

NCAL ( 1 )=NfAL( 1 )♦! 790 

JGOT 0 = 2 800 

RETURN 810 

80 CONTINUE 820 

F2=0BJ 830 

IF (IPRINf .GT.9) WRITE (6,390) F2 890 

C PROCEED T n CUBIC INTERPOLATION. 850 

GO TO 160 860 

90 CONTINUE 870 

C _ ... ...... — ....... ... — ........... 880 

C »**»**.*»* 2-POINT OUadRATtC INTERPOLATION ********** 890 

c ... .... ............. 900 

JJ=1 910 

IT=1 920 

Call CNMNqu (II,APP,ZRO,At,Fl,SLOPE,A2,F2,2RO,ZRO,2RO,ZRU) 930 

IF (APP.LT.Z f< O.OR.APP.GT,A2) GO TO 120 990 

F 3 = F 2 950 

AJrAJ 960 

A 2 R A PP 970 

JJ=0 980 

c ...... .......... ..... ........... ... 990 

C UPDATE DESIGN VECTOR ANO FUNCTION VALUE 1000 






•* 
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C ......... 1... ........................ .......... ............... 1010 

AP=A2-*LP 1020 

*LP=A2 _ 1030 

DO 100 1=7, NOV 1040 

100 X(I)aX(I) t AP»S(I) 1050 

IF ( IPRIHt.gT.4) write (6,370) a2 1060 

IF (IPHINt.gT. 4) WRUE (6,580) ( X ( I ) , I s 1 , ND V ) 1070 

NCAL( 1 )=N^aL( 1 )♦ 1 1080 

JGOTOsJ 1090 

Return lloo 

no CONTINUE mo 

F2=OBJ 1120 

IF (IPRINt.gT.4) WRITE (6,590) F2 1150 

GO TO 150 1140 

120 AJs2,,A2 1150 

C ... ... ................ — .............. ... — ...... 1 1 60 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE 1170 

c — ; -.... — — — ......... — iiao 

ApsAJ-ALP 1190 

ALP=A3 1200 

DO 130 I=i, NOV 1210 

1 30 X( I )=X ( I ) +AP*S ( I ) 1220 

IF (IPRINr.GT.a) write (6,370) A3 1230 

IF (IPRIN T>G T,4) WRITE (6,380 ) ( X ( I ) , I r 1 , NO V ) 1240 

NCAL ( 1 )=N G AL( 1 ) *1 1250 

JGOT 0 = 4 1260 

RETURN 1270 

140 CONTINUE 1280 

E 3 = 06 J 1290 

IF (IPRINt.gT.4) WRITE (6,390) F3 1300 

150 CONTINUE 1310 

IF (F3.LT>?) GO TO 190 1 320 

160 CONTINUE 1350 

c ; 1340 

c ***««»**»* 3 -point CUBIC INTERPOLATION ********** 1350 

C . 1 360 

1 1 = 3 1370 

CALL CNMN nu (II,APP,ZRO,Al,Fl,SLOPE,A2,F2,A3,F3,ZRO,ZRU) 1380 

IF <APP,Lr.ZHn.OR.APP,GT,A3) GO TO 190 1390 

C 1 — .......................... .............. 1400 

C UPDATE DESIGN VECTOR ANO FUNCTION VALUE, 1410 

C .................................................................. 1420 

APJSAPP 1430 

APrAPP-ALp 1440 

ALP=APP 1450 

DO 170 I=j, NOV 1460 

170 X(I)=X(I);ap*S(I) 1470 

IF ( IPRIN T>G T.4) write (6,370) ALP 1480 

IF (IPRINj.GT.4) WRITE (6,380) ( X ( I ) , I = 1 , NO V ) 1490 

N CAL ( 1 ) =NfAL ( ! ) ♦ 1 1S00 
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JG0T0=5 . 1510 

Return 1520 

180 CONTINUE 1 5 JO 

IF (IPRINt.rT.U) WRITE (6,590) OBJ 1540 

C ; 1560 

C CHECK CONVERGENCE lSoO 

C .................... 1570 

AAsl.-APP ;*2 1560 

AB2* A PS ( F ? ) 1590 

AR3=AB5(0oJ) 1600 

*8**02 1610 

IF (A83.Gf >A 6) AB=AB3 1620 

IF (AB.LT'.i.OE-IS) Ad= l , o E — 1 5 1650 

A8=(AB2-*b3)/aB 1640 

IF (A0S(Aqj .LT.l .0£-15.AND,ABS(AA) .LT..001 ) GO TO 550 1650 

A4 s A 3 1660 

F 4sF 3 1670 

A3=*pp 1680 

F3=0flJ 1690 

IF (A3,GT‘.a2) GO TO 230 1 700 

A3=A2 ' 1710 

F 3 = F 2 1720 

A2=APP 1730 

F 2 = 00 J 1740 

GO TO 230 1750 

190 CONTINUE 1760 

C ................ ....................... 1770 

C ****».*»*, 4-POINT CUBIC INTERPOLATION »***«»***« 1780 

C ..... ... ..... .................... 1790 

200 CONTINUE 1800 

A4*2.«A3 1810 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE. 1820 

APrAq-ALP 1830 

ALP* A 4 1840 

DO 210 I=^,NOV 1850 

210 X(l)sX(I); A p.S(I) 1860 

IF (IPRINt.gT.4) write (6,570) ALP 1870 

IF (IPRIN T>G T.4) write (6,580) ( X ( I ) , I = 1 , ND V ) 1880 

NCAL ( 1 ) sNpit ( i ) ♦ 1 1890 

JGO TO = 6 1900 

RETURN 1910 

220 CONTINUE 1920 

F 4s08J 1930 

IF (IPRTNf .GT.4) WRITE (6,390) Fq 1940 

IF (F4.GT'.F3) GO TO 230 1950 

Al=A2 ' I960 

F 1 =F 2 1970 

*2**3 1980 

F2*F3 1990 

A 3 = A 4 2000 
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F}zFu 2010 

GO TO 200 2020 

2 JO CONTINUE 20 JO 

11=0 2000 

Call CNMNoa (II,aPP,a1,A1,F1,SL0Pe,a2,F2,aJ,F3,a4,F4) 2050 

IF (APP.Gt.aI) GO TO 250 20«>0 

AP:A i -ALP 2070 

*LP=A1 2060 

OBJ=Fl 2090 

00 24 0 1=7, nDv 2100 

2«o x(nsx(ij;AP*scn 2110 

GO TO 280 2120 

250 CONTINUE 2 1 JO 

c ; 2100 

C UPDAlE OESIGn VECTOR aND FUNCTION VALUE 2150 

c ; 2 1 o o 

AprAPP-AlP 2170 

ALP=APP 2160 

00 260 I=?,nDV 2190 

260 X(I )-.<( I ) ; A p*S( I ) 2200 

IF (IPRIN T .r,T.4) WHITE (6*370) ALP 2210 

IF (IPPIN T .r,T.4) WRITE (6,560) ( X ( I ) , 1 1 { , NO V ) 2220 

NCAL(t)=Nf aL(1)+1 2230 

JG0T0=7 2240 

RETURN 2250 

270 CONTINUE 2260 

IF (IPRIN-f.oT.4) WRITE ( 6 , J 9 0 ) OBJ 2270 

280 CONTINUE 2260 

C 1 2290 

C CHECK FOR ILL-CONOI I IONING 2J00 

c ; 2 J 1 0 

IF (0fiJ.GT.F2,0R.06J.GT.FJ) GO TO 290 2J20 

IF (OSJ.Lf.F1) GO TO JJO 25 JO 

APrAl-ALP 2 J4 0 

ALP=At 2 J50 

OB J = F 1 2360 

GO TO J10 2 J 70 

2 90 CONTINUE 2360 

IF (F2.LT*. FJ) GO To 300 2390 

08 J = F 3 2400 

APiAJ-ALP 2410 

ALP=A3 2420 

GO TO 3 1 0 2430 

JOO OR J=F2 2440 

APsA2-ALP 2450 

*LP=A2 2460 

310 CONTINUE 2470 

C 2460 

C UPDATE OESIGN VFCTOR 2490 

C - - 2500 
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oo 320 1=7 , nOv 2510 

320 X(1)=X(I).AP*S(I) 2520 

330 CONTINUE ^530 

C 1 - .............. 2500 

C CHECK FOR MtILTIPLF minima 2550 

C 1 2560 

IF (OBJ.Lf.fFF) 00 TO 3S0 2570 

C INITIAL Function is minimum, 2580 

DO 3u 0 I = t,NOv 2500 

3«o x(n=x(n;AL p *s(i) 2000 

AIP=0. 2610 

05JSFFF 2620 

350 CONTINUE 2630 

JGOTOsO 2640 

RETURN _ 2650 

C 2bo 0 

C FORMATS 2670 

c 2 t >60 

C 26 VO 

360 FORMAT (/////5X,60H* • * UNCONSTRAINED ONE -0 1 MENS I ONAL SEARCH INFO 2700 

IRmaT ION * , * ) 2710 

370 FORMAT (/5X.7HALPHA s , E 1 a , 5/5X , 8HX- VEC TOR ) 2720 

3B0 • FORMAT (5x,6tt3.5) 2730 

3V0 Format (/5X,5hO 0J =,tl4,5) 2740 

End 2750 



SUBROUTINf cNMNOa SEPT. 77 

SUBROUTINp QNHNoa ( 1 1 , XBaR,EPS, X i , Y | /SLOPE > X2, Y2, XS> YJ» X9, Y9) 10 

C ROUTINE To FIND FIRST XBaR.GE.EPS CORRESPONDING TO A MINIMUM 20 

C OF A ONE-njMgNSIONAL Re a L FUNCTION BY POLYNOMIEL INTERPOLATION. 30 

C By G, n. v a nue RPL a a t S april, 1972. ao 

C NASA-AMES research CENTER, MOFFETT FIELD, CALIF, 50 

C (,0 

C II 3 CALCULATION CONTROL. 70 

C It ?. POINT QUADRATIC INTERPOLATION, GIVEN Xi, Yl, SLOPE, 80 

C x 2 ANO Y2. 90 

C 2: 3 -POINT QUADRATIC INTERPOLATION, GIVEN Xj, Yl, X2, y2, loo 

C x 3 a ND Y3. HO 

c 3 : point cubic interpolation, given xi, y i , slupe, x 2, Y2, 120 

c x 3 and y 3 . 130 

c a: a_poiNT cubic interpolation, given xi, yi, x2, y2, x3, iao 

c Y3. x« and y«. 150 

C EPS MAY Be NEGATIVE. loo 

c if required minimum on y does not exits, or the function is 170 

c ILL-CONOItIONED, XbAR = EPS-1,0 RILL BE RETURNED AS AN ERROR 180 

c indicator'. i 90 

c IF DFSIREo INTERPOLATION IS I LL-COND I T I Oneo , A LOWER ORDER 200 

c INTERPOLATION, cONSTSTaNT with input daTa, will BE ATTEMPTED, 210 

C and IT w I , l BE changed ACCORDINGLY. 220 

X8ARl:EPS_i . 230 

XSAR = X8ARj' 2ao 

X 2 1 3 X 2 - X 1 250 

IF (ABS(X? n .LT,l,0E-20) RETURN 200 

NSLOPsMODf II,?) 270 

GO To (10. 20 , aO, 50), II 280 

10 CONTINUE 290 

C ................. 300 

C 1 1 = 1 t 2-POINT QUADRATIC INTERPOLATION 310 

C ; - 320 

11=1 330 

D X s X l - X2 390 

IF (ABS(Dx) .LT. I .OE-20) RETURN 350 

AAs(SL0PE; ( y2.Y1 )/DX)/OX 360 

IF (AA.LT'.i .0E-20) RETURN 370 

BB=SL0PE-?.,AA*X1 380 

XBAR=-,5*rr/Aa 390 

IF (XBAR, | t , EPS ) XbaRsXBaRI 900 

RETURN 910 

20 CONTINUE 920 

c — ........... 930 

C 1 1 s2 : 3-POINT QiiaoRAT IC INTERPOI at ION 990 

C .... ....... ................. 950 

11=2 960 

X213X2-X1 970 

X31=X3-X1 980 

x 32 S X 3-x 2 990 

0Q3X21*X3T*XJ2 500 
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IF (A0S(Oo) .LT, 1 .0E-20) RETURN 510 

AAs(yi*x3?-y2*x31+y3*X2I )/GG 520 

IF (AA.LT', ) .OE-20) GU TO 30 ' 530 

8B=(Y2-Y1 t/x21-AA*(X1+x2) 590 

X8ARs-.5*rr/AA 550 

IF (X0AR.I I.EPS) XBARsXBaRI 560 

RETURN 570 

30 CONTINUE 580 

IF (NSLOP'.eo.O) RETURN 590 

GO TO 10 * 600 

90 CONTINUE 610 

...................... .... ............ 620 

11=3: 3-POlNT CU8IC INTERPOLATION 630 

............... .................... 690 

11=3 650 

X2l=X2-Xl 660 

X3l=XS-Xi 670 

X32=X3-X2 680 

UQ=X2l *X37 .x32 690 

IF ( ARS(Uo) .LT , 1 . 0E-20) RETURN 700 

Xil=Xl»Xi 710 

DN0M=X2*X?*y3i-X11aX32-X3*X3*X21 720 

IF ( ABSCOND*) .LT . I , OE-20) GU TO 20 730 

A A = ( (X31 *Y31 * ( T2* T 1 )-X21*X2l*(Y3-Yl))/(X31*X21)-SL0PE*X32)/0N0M 79 0 

IF (ABS(Aa).LT.I. OE-20) GO TO 20 750 

BB=( (Y2-T, ) /X?l-SL0PE.AA*(X2*X2*xi*X2.2,*xi 1 ) )/X2i 760 

CC = SLOPE-i|. «A A*X1 1-2, *88*X 1 770 

Bac=8B*BB.3, «aA*CC 780 

IF (B*C.Lf.O.) GO TO 20 790 

8AC=SORT (raC ) 800 

XBaR=(BAC.rr)/(3.*aa) 810 

IF (XBAR.I T.EPS) XBARsEPS 820 

RETURN 830 

50 CONTINUE 890 

C ... ..... 850 

C 11=9: 4-POINT CUBIC INTERPOLATION 860 

C 1.. ................. ... ......... 87 0 

X21=X2-Xt 880 

X3 1=X3-X 1 890 

X91=X9-Xl 900 

X32=X3-X2 910 

X92=X9-X2 920 

Xll=Xl*Xl 930 

X 22= X2 * X 2 990 

X33=X3*X3 950 

X44SXU.X9 960 

XI 1 1=X1 .X) i 970 

X222=X2.x? 2 980 

02=X31 *X2i,» 32 990 

IF ( ABS(0?) .LT . 1 .0E-30) RETURN 1000 
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QlsXni*X 52 -X222*XJifX3*xJ3*X2i 1010 

U4 = xni*Xa?.X222*x«t*xu*x«4.x2i 1020 

Q5-X41 * X 2 J » x 4 2 1030 

0NOHsO2*U u .ol*(J5 1040 

IF (ABS(Dmom) . IT , 1 ,06-30) GO TO 60 10S0 

03=Y3*X21.y2*X31+Y1*X32 1060- 

Q6=Y4*X21^y2‘X41+Yi.X42 1070 

AAs(Q2*06.n3*0S)/0N0M 1060 

BBs(03-01»AA)/Q? 1090 

CC:(Y?-Yi; A A* (X222-X1 1 i ) ) / x 2 i .BB» ( x 1 ♦ X2 ) 1100 

BAC=6H*B8^i. *AA»CC 1110 

IF (AflS( A* ) t LT. 1 .0E-20.OR,BAC.LT,0. ) GO TO 60 1 120 

BAC=SORT ( axC ) 1130 

XBAR=(BAC.fl6)/(3.*AA) 1140 

IF (XBAR.iT.EPS) XbaK=XBaR1 1150 

RETURN 1160 

60 CONTINUE 1170 

IF {NSLOP'.fO. 1 ) GO TO 40 1160 

GO TO 20 " 1190 

End 1200 
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SUBROUTINF (NVC, SLOPE, OF, G,IsC,IC,A,s.C,M s 1,B,N1,N2,N3,N9,N 10 

15) 20 

COMMON /CnmNI/ IPRINT.NDV, I TMAX,NcON,NSIDE, ICNDIR.NSCAL.NFOG.FDCH, jo 

lFOCHM.CT/rTMlN.CTUCTLMlN, THE T A , PH I . N AC » OELF UN , DABFUN, L I NOB J , ITRM, 00 

21 T£R, INFOr., (GOTO, INFU, OBJ 50 

DIMENSION DF(N1) »G(N2) , ISC(N2) , IC(N3) , A(N3,N1) , S(N1 ) ,C(N«) ,MS1 (N5) 60 

1 * 8 ( N3 , N 3 ) 70 

ROUTINE T n sOuVF. DIRECTION FINOING PROBLEM IN MODIFIED M£THOO OF 60 

FEASIBLE n I REC T I ONS . 90 

BY G. N. vaNOERPLAATS may, 1972. 100 

NASA. ameS RESEARCH CENTER, mofFETT FIELD, CALIF. 110 

NORM OF S VECTOR USED HERE IS S-TRANSPOSE TIMES S.LE.l. 120 

IF NVC = n FIND DIRECTION BY ZOUTfNDIJK'S METHOD. OTHERWISE 1J0 

FIND MODIFIED DIRECTION. 100 

- - 150 

»** NORMaliZF GRADIENTS, CALCULATE TheTa'S ANO DETERMINE NVC »** 160 

; 170 

NOVl=NDV+i 180 

N0V2=NDV+? 190 

NACl=NAC+i 200 

NVC = 0 210 

THMAX=0, 220 

CTA=tBS(CT) 230 

CTl*l,/CT* 2<*0 

CTAMsA6S(rT«lN) 250 

CT.HsaBSCCti ) 260 

CT2S1./CTR 270 

CTBM=ABS(rTL M I N ) 280 

A 1 = 1 . 290 

DO 90 1=1, NAC 300 

C CALCULATE thETA 310 

NCI=ICCI) 320 

NCJ=1 ' 330 

IF (NCI .Lf.NCON) NCJrlSC(NCI) 390 

ClsG(NCI) 350 

CTD=CT1 360 

CTC=CTAM 370 

IF (NCJ.Lf.O) GO TO 10 380 

CTC=CTBM 390 

CT0=CT2 900 

10 IF (Cl.GT’.cTC) NVC = NVC + 1 910 

THT=0, 920 

GGsl.fCTD.cl 930 

IF (NCJ.Eo.O.OR.Cl .GT.CTC) ThT=THeTA.GG*GG 990 

IF (NCJ.Gt.O.aNO. C l .GT.CTC) THT=ThT-3.«ThETa 950 

IF (THT.Gr.59. ) TH T=50 , 960 

IF (THT.Gt. THMAX) THMAX=THT 970 

A ( I , NOVI ) sTHT 980 

990 
500 



C 

C 
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c - Si 0 

*{I»NOV?)-t. 520 

IF (NCI.Gt.nCON) GO TO UO 530 

*1=0, 540 

00 20 J=1,nDV 550 

*1=*1 fA(I # J)**2 5t>0 

20 CONTINUE 570 

IF (Al.LT'.t .OE-20) *l=l,0E-?0 500 

A t sSQR T ( A ) ) S90 

A(I,NDV?)sA1 600 

A 1 = 1 , / A 1 610 

00 Jo J=1 ,nOV 620 

JO *(I, JT = * l **( I , J) 630 

40 CONTINUE 640 

c ...... ...... — . 6so 

c normalize gradient of objective function ano store in nacm 660 

C ROW OF A 670 

c 600 

*1=0, 690 

00 50 1= 1 e NDV 700 

A 1 =A 1 +0F ( t 1 * *2 710 

50 CONTINUE 720 

IF (At .LT' e i .0E-20) A 1 s 1 , oE -2 0 7J0 

AjsSORTCA,) 740 

A 1 = 1 , / A 1 750 

00 60 1=1, NOV 760 

60 A(NAC1,I) = ai»0F(I) 770 

c build c vector. 700 

IF (NVC.Gt.O) go TO 00 790 

C .... — ... ............... ............. 000 

C BUILD c for CLASSICAL METHOD 010 

c ...... — — ................................................... 620 

Nob=NAC1 030 

A ( NOR , ND V ) j s 1 , 040 

DO 70 1=1. NOB . 050 

70 C ( I ) s. A ( I , mOV l ) 060 

GO TO 110 070 

00 CONTINUE 000 

c : — .... — ... — 890 

C BUILD C FOR MODIFIED METHOD 900 

C ... ... 910 

ND0SNAC 920 

A (NAC 1 , NDvl ) =-PHl 9JC 

C ..... 1 ................ ..... ........................ 940 

C SCA|(r Theta's SO That maximum theta is unity 950 

C ..................... ....... ....... ........ 9o0 

IF(ThmaX.(;t. 0.0000 1 ) ThM a X s 1 , / THM A X 970 

DO 90 1=1 , ndB 900 

NC I = I C ( I ) 990 

C 1 =C T A 1000 
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IF (ISC(Nrn.GT.O) C1=CT0 1010 

A(I,N0V1).*(I,N0V1)*THHAx 1020 

90 CONTINUE 1030 

DO 100 1=7, NOB 1000 

C(I)=0. . 1050 

00 100 J=i,NOVl 1060 

100 C(I)=C(I);a(I,J)*A(NAC1,J) 1070 

110 CONTINUE , 1000 

C ..... ....... 1090 

C 8UIL0 B MATRIX 1100 

c 1110 

DO 120 1=|, NOR 1120 

DO 120 J=7,nDR 1130 

B(I,J)=0. 1190 

00 120 K s j , nO V 1 1 1 SO 

1 2 0 B(I,J)=B(t, J)-A(I,K)*A(J,K) 1160 

c 1170 

C SOLVE SPECIAL L. P. PROBLEM > 1100 

C -1 ............... ..... 1190 

CALL CNMN 0 8 (NOB,NtR,C,MSl,B,Ni,Nu,NS) 1200 

IF (IPRINt.C,!. 1 .ANO.NtR.GT.O) hRITE (6,180) 1210 

C CALCULATE RESULTING DIRECTION VECTOR, S. 1220 

SLOPE = 0 , 1230 

C 1_. ......... ........ — .. 1 2U0 

C USABLE-FEASIBLE DIRECTION 1250 

c — ; — . — — — . — ................ ..... 1 2&0 

DO 190 1=7, nDv 1270 

S l =0 , 1280 

IF (NVC.Gt.O) S1=-A(NAC1,I) 1290 

DO 130 J= 7 , NOR 1300 

130 Sl=Sl-A(J, n*C(J) 1510 

SL0PE=SL0pe+Si .OF (I) 1320 

190 S(I)=S1 1330 

S(NOvi) = r. 1390 

IF (NVC.Gt.O) S(N0V1 )=-A(NACl ,NOVl ) 1350 

00 150 J= ) ) NOR 1360 

150 S(NOvi )=S'(NOVi )-A( J, NOVI ) »C( J) 1370 

C 1380 

C NORMALIZE s TO MAX arS OF UNITY 1390 

c ..... — : — ... ............ moo 

S 1 = 0 . 1010 

DO 160 1=7, nDV 1920 

*lsAHS(S( T )1 1930 

IF (Al.GT'.si) S 1 = A 1 1000 

160 CONTINUE 1050 

IF (Sl.LT’. i.OE-10) S 1 s 1 , OE - 1 0 I960 

Slrl, /SI 19/0 

DO 170 1=7, NOV I960 

170 S(I)=Sl»S f n 1990 

SL0PE=S1 »<?LOPE 1500 



subroutine cnmnos sept. 77 

S(NOV1)=ST*S(NOVI ) 1510 

return 1520 

c ' 1 5 iO 

iso format (//sx, 46 h* * direction finding process did not converge/sx, isao 

12RH* * S-VFCTOR may not BE VALID) 1550 

end i B oo 
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SUBROUTINE CNMN06 (X,OF,G, ISC,S»Gi ,G2 , VLB, VUB, SCal,Ni ,N2) 10 

COMMON /Cnmn 1 / JPRINT.NOv, ITmax,ncON,nSIDE, ICNdIP,NSCAL,NPOG,FDCH, 20 

lFOCHM,CT,rTMlN, CTL,C ILMIN, THETA, PHI , N aC » DELFUN , D A aFIJN , L I NOB J , I TRM , 30 

21 TER, I NFOc, IGOTO, INFO, OBJ 40 

COMMON /ConSAV/01(lft),CTA,CTAM,CTRM,D?, SLOPE, 03(3), XI, SO 

20a,ALP,05' f? ),A2,A3,Aa,D6,F2,F3,F4,CVi,cV2,Cvi,CVa,D7,ALPCA,A 60 

3LPFES,ALP| n.ALPH'^ALPNC, ALPS a V, ALPS ID, alp TOT, SPACE. 101 (7) , 70 

*NCAL(2)> Io?(J),NVC, 103, ICOUNT, 80 

5IG0001 , I GnOD2 , l GOOD 3, IGO0OU, I BE ST, I I I , NLNC , JGO TO , t SPACE (2) 90 

DIMENSION x(Ni),0F(Ni),G(N2), ISC(N2),S(Ni),ci(N2),G2(N2),VLB(Nl),V 100 

1UB(Ni),SCa L( N1) 110 

ROUTINE To SOLVE ONE-OIMENSIONAL SEARCH PROBLEM FOR CONSTRAINED 120 

FUNCTION mjnImIZATION, 130 

BY G, N. VANDERPLAATS AUG., 1974, 140 

NASA-AMES bfSEARCH center, MOFFETT FIELD, CALIF. ISO 

OBJ = INITIAL and FINAL FUNCTION VALUE. 1 60 

ALP = M0Vf parameter. 170 

slope = Initial slope, too 

190 

ALPSIO = move TO SIDE CONSTRAINT, 2 00 

ALPFES = move TO FEASIBLE REGION. 210 

alpnc = MnvF TO n£h non-lINEAR CONSTRAINT, 220 

ALPLN = MnvF TO LINEAR CONSTRAINT, 230 

ALPCA =: M nvE TO RE-ENCOOnTER CURRENTLY ACTIVE CONSTRAINT, 240 

AL PM i N r MOVE TO MINIMIZE FUNCTION. 2S0 

alptot = total move Parameter, 260 

ZR0=0. 270 

IF (JGOTO'eg.O) C-0 TO 10 260 

SO TO (I4q, 310,520), JGOTO 290 

IF (IPRINt.gE.5) WRITE (6,730) 300 

ALPSav=aLb 310 

I COUN T = 0 320 

ALPT0T:0. 330 

tolerances. 340 

CT AMsABS ( rTMlN) 3S0 

CTRM = A8S(rTL M IN) 360 

PROPOSED move, 370 

CONTINUE 380 

— — ....... .......... 390 

***** BE 0 1 N SEARCH OR Impose SIOE CONSTRAINT MODIFICATION ***** 400 

.... ............................. — ..... — ...... — 410 

A2=ALPSAV 420 

ICOUNTr ICntJNT + 1 430 

ALPSIO=l ,nE*20 440 

C INITIAL A, PHA AND OBJ. 4S0 

A L P 2 0 , 460 

Fi*08J 470 

KSIOsO 480 

IF (NSIOE'fO.O) GO TO 70 490 

c 1.. - soo 
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C find move to SIDE CONSTRAINT and insure AGAINST VIOLATION OF 510 

c side constraints sao 

c ... 530 

DO 60 '1=1. NOV 500 

SI = S(I) 650 

IF (ABS(St) ,GT,1 ,0t-80) GO TO 30 560 

C r-ALCULATE ALPHA TO MINIMIZE FUNCTION 570 

C ; -- 580 

11=3 590 

IF (AP.GT A3.AND.(ir,OOD2,EQ.u.ANO.lBEST,EO,2)) 11*8 600 

Call CNMN^a (II,ALPMiN,ZHO,ZRO,Fi,SLOPE,A?,F2,A3,Fi,ZRO,ZRO) 610 

050 CONTINUE 680 

C 630 

C PROPOSED MOVE 600 

c : — — — — — 650 

C MOVE AT Least ENOUGH TO OVERCOME CONSTRAINT VIOLATIONS, 660 

AorALPFES 670 

c move to minimize function. 68o 

IF (ALPMIm.GI.AO) aOsalFmIN 690 

C IF Au.LE.n, SET AO = ALPS ID , 700 

IF (AO.LE'.o.) au = alPSID 710 

C LIMIT MOVp to NF" CONSTRAINT ENCOUNTER, 780 

IF (ao.GT' al p LN) ausalpLN 730 

IF (AO.Gt'alPnC) Ao*alPN C 700 

C LIMIT MOVp- TO RE-ENCUUnTeR CURRENTLY ACTIVE CONSTRAINT, 760 

IF ( AO ,GT' # AL p CA ) AOSALPCA 760 

C LIMIT AO to 6 , * A 3 , 770 

IF (AO,GT’ (5,»a3)) A0s5,*A3 780 

C UPDATE DESIGN. 790 

IF (IBEST‘ >NE . 5.0R.NC0N.EQ.0) GO To 070 800 

C STORE CONSTRAINT ValUFS IN G8. F 3 IS BEST, F2 IS NOT, 810 

DO 060 1=1 , NCON 880 

G2 ( I ) sG C 1 1 830 

060 CONTINUE 800 

070 CONTINUE 850 

C IF A«sA3 i N o I GOOD 1 = 0 AND IG00D3=i, SET ao=.9*a3. 860 

ALP=A0-A3 870 

IF ( ( IGOOni,EQ.O,AND,IGOOD3.EQ,l),AND,ABS(ALP),LT,l,OE-20) A0=.9 «a 880 

13 890 

C ; ... ................ .......... 900 

C MOVE A DISTANCE AO«S 910 

c -- ; ........ 980 

ALP=AO-A3 930 

ALP Tot=alpto7 *alp 900 

DO 080 I=i # NOV 950 

x f I J = X C I J ;Il p »S ( I J 960 

080 Continue 970 

IF (IPRINt.lT.5) GO TO 5 1 0 980 

WRITE (6,720) "0 

WRITE (6,700) AO 1000 
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IF (NSCAL'.EO.O) GO TO S00 1010 

DO 490 1=1, nDV 1020 

«Ro G(n = sCAif n*x(i) loio 

WRITE (6,750) ( G ( I ) , I = 1 , ND V ) 1040 

GO TO 510 1050 

500 WRITE (6,750) (X(I)»I=1» NO V) 1060 

510 CONTINUE 1070 

c ... -- — — ............ loeo 

C update FUNCTION and CONSTRAINT values 1090 

c ... ......... ............. ..... 1100 

NCAL ( 1 ) =Ntal ( 1 ) +1 1110 

JGO TO= i 1120 

RETURN 1130 

520 Continue 1140 

F4=0BJ 1150 

IF (IPRINt.gE.5) write (6,760) F4 1160 

IF (IPRINt.lT.S.OR.N'CON.EO.O) GO TO 530 1 170 

WRITE (6,770) 1160 

WRITE (6,750) (G(I),I=l,NCON) 1190 

530 CONTINUE 1200 

C DETERMINE ADAPTABILITY OF F4, 1210 

IGOOD4=0 1220 

C V4 = 0 . 1230 

IF (NCON.pq.O) 150 T0 550 1240 

DO 540 I=i,NCON 1250 

CC =C T AM l 2o0 

IF (ISC(I).GT.O) CC=CTHM 1270 

C 1 =G ( I ) -C r 1260 

IE (Cl.GT.cv4) CV4=C1 1290 

540 CONTINUE 1300 

IF (CV4.GT.0.) IG00D4;1 1310 

550 CONTINUE 1320 

ALP=A4 1330 

0BJ=F4 1340 

C ; - 1350 

C OETERMINE best design 1360 

c 1370 

GO TO (5bn, 610,660), t BES T 1380 

560 CONTINUE 1390 

c choose between fi and fu, 1400 

IF ( IGOOOi .EU. 0 .AND. IG00D4 ,£i).0) GO TO S70 1410 

IF ( C V 1 ,Gt.C v 4) GO TO 710 1420 

GO TO 580 1430 

57o Continue 1440 

IF (F4.LE'.F1) go to 7 1 0 1450 

580 CONTINUF * 1460 

C F 1 IS BEST. 1470 

ALPT0T=ALpt0T-A4 1480 

0BJ=F1 1490 

DO 590 1=1, NDV 1500 
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x(i)2xu).*<j»sm lsio 

590 CONTINUE 1520 

IF ( NCON i fq # 0) GO TO 7 1 0 15 30 

DO 600 I = f , NCON 1590 

G(I)sG1(I> 1550 

boo Continue i5&o 

GO TO 710 1570 

610 CONTINUE 15o0 

C CHOOSE BETWEEN F2 AND Fa. 1590 

IF ( IGOOO?.fU.O , and, iGOOna ,EQ.O) GO TO 620 1600 

IF CCV2.GT.cVa) GO TU 710 1610 

GO To 630 1 o20 

620 continue 1630 

IF CFa.LE'. F2) GO TO 710 1600 

630 CONTINUE 1 b50 

C F 2 IS BESt. 1 obO 

OBJ=F? 1670 

A2=Au-A 2 1630 

ALPT0T5ALpT0T.A2 1 690 

DO 600 I s l , NO V 1700 

X( I )=X ( I )_A2*S( I ) 1710 

600 CONTINUE 1720 

IF (NCON.fo.O) GO TO 710 1730 

00 650 I=i , NCON 1 700 

G(I)=G2(I) 1750 

650 CONTINUE 1760 

GO To 710 1770 

660 CONTINUE 1760 

C CHOOSE BETWEEN F 3 AND FO, 1790 

IF (IGOODj.eO.O.ANq, IGOOdO.EO.O) GO TO 670 1300 

IF (CV3.Gf.CV0) GO TO 710 1810 

GO TO 680 1820 

670 CONTINUE 1830 

IF (FO.LE*. F3) GO TO 7 1 0 1800 

680 CONTINUE " 1850 

C F 3 is BESt. 1860 

0BJSF3 1870 

A3=A«-a3 1860 

AI_PT0T = ALpT0T-A3 1890 

00 690 I=i NOV 1900 

X(I)=*(I).A3«S(I) 1910 

69o Continue 1920 

IF (NCON.fq.O) GO TO 710 1930 

DO 7 0 0 I = i',nCON 1900 

G ( I ) =G2 C I ) 1950 

700 continue i960 

710 CONTINUE 1970 

AUP=ALPTOf I960 

If (IPKINf .CL. 5) WRITE (6*790) 1990 

JGOTO=0 2000 
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RETURN 2010 

c ; 2020 

C • FORMATS 2030 

C ITH COMPOmenT OF S IS small, SET TO zero, 20U0 

S ( 1 5 =0 . 2050 

SLOP£=SLOpe-SI*OF( I ) 20p0 

GO To 60 2070 

30 CONTINUE 2080 

*I=X(I) 2090 

Sl=l./SI 2100 

IF (SI.GT'.o.) GO TO 00 2110 

C LOWER BOUmo. 2120 

XI2=vLB(I) 2130 

XI15APS(Xt2) 2190 

IF (Xlt.LT.l .) *11:1, 2150 

C CONSTRAINT VALUE. 2160 

G I = ( X I 2”X t ) /X 1 1 2170 

IF (GI.GT._t ,OE-e) GO TO 50 2180 

C PROPOSEO move TO LOWER BOUND. 2190 

ALPA=CXI2.xI)*SI 2200 

IF (ALPA,| T.ALPSID) ALPSIDsALPA 2210 

GO TO 60 2220 

90 CONTINUE 2230 

C UPPER BOUmo. 2290 

XI2svUBCI 5 2250 

XI1=aBS(Xt2) 2260 

IF (XT 1 .Lr.l . ) XI 1 = 1 . 2270 

C CONSTRAINT VALUE, 2280 

GI=(XI-XI?)/XH 2290 

IF (GI.GT'._t .oE-o) GO TO 50 2300 

C PROPOSED MOVE TO UPPER 80UN0. 2310 

ALPA=CXI2.xl)*SI 2320 

IF (ALPA.iT.ALPSID) ALPSIOsALPA 2330 

GO TO 60 2390 

50 CONTINUE 2350 

c move WILL violate SIDE CONSTRAINT. Set sm=0, 2360 

SLO p E=SLOpf-S(I)*DF(I) 2370 

S(I)=0, 2380 

KSIO=kSIO;i 2390 

60 CONTINUE 2900 

C ALPSID IS uP p ER BOIJNO ON ALPHA, 2910 

IF (A2.GT' AL p SIO) A2=AL P SI0 2920 

70 CONTINUE ' 2930 

c ... .... 29 9 0 

C CHECK ILL-CONDITIONING 2950 

c — 2960 

IF (KSID.FO.NDV.UR.ICOUNT.GT. 10) GO TO 710 2970 

if (nvc.Eo.o. and, slope, gt,o.) go to 7 i o 2980 

*LPFES=-1‘ 2990 

AlPMINs-1 . 2500 
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AlPLNsl , UaL p SID 2510 

ALPNC=ALPsiO 2520 

ALPCAsALPsiO 2530 

IP (NCON.pq.O) GO TO 00 2500 

C STOWE CONSTRAINT values IN Gl, 2550 

00 8o 1 = 1 , NOON 2560 

Gl(I)sG(I, 2570 

80 CONTINUE 2560 

90 CONTINUE 2590 

C 1... .................................. ... 2600 

C MOVE A DISTANCE A 2 * S 2610 

C 1 ..... 2620 

ALPTOTsALpTOT + A2 2630 

00 loo I = 1 , N 0 V 2690 

*(I)=X(I)iA2*S(I) 2650 

100 CONTINUE 2660 

IF (IPRINt.lT.S) GO TO 130 2670 

"RITE (6,790) *2 2660 

IF (NSCAL'.EO.O) GO TO 1 2 0 2690 

00 1 i 0 1=7 , nOV 2700 

110 G ( I ) sSC AL f I ) * X ( I ) 2710 

. WRITE (6,750) (G(I),I=l,NOV) 2720 

GO TO 130 2730 

120 "RITE (6,750) (X(I),I=1,N0V) 2790 

C 2750 

C UPDATE FUNCTION ANO CONSTRAINT VaLUFS 2760 

C 1 2770 

130 N C AL( 1 )=NpAL( I )+l 2780 

JGOTOs 1 2790 

RETURN 2800 

190 CONTINUE 2810 

F2=0BJ 2820 

IF (IPRlNf.GE.5) WRITE (6,760) F2 2830 

IF (IPRINt,lT.5.0R,ncON.£0.0) GO TO 150 2890 

"RITE ( 6 , 770 ) 2850 

WRITF (6,750) (G( I ) , 1=1 ,NCON) 2860 

150 CONTINUE 2870 

C ;. ..... ...... 2380 

C IDENTIFY ACCAPTAI3 IL I TY OF DESIGNS FI AND F2 2890 

C .........I.. ............................................. ... 2900 

C IGOOO = 0 IS ACCAPTABLE. 29 1 0 

c CV = maXImijm CONSTRAINT VIOLATION, 2920 

1 GOOD 1 =0 2930 

IG0002=0 2990 

Cv 1 =0. 2950 

C V 2 = 0 , 2960 

NVC1=0 2970 

IF (NCON.fo.O) GO TO 170 2980 

DO 1 60 I = i,nCON 2990 

CC=CTAM 3000 
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IF (ISC(Il.GT.O) CC=CTBM 3010 

cisGitn-rc 3020 

C2sG(I)-Cr 3030 

IF (C2.GT'o.) NVClsNVClM 3040 

IF (Cl.GT CV1) CVlsCl 30SO 

IF (C2.GT.cv2) CV2sC 2 3060 

160 CONTINUE " 3070 

IF (CVI.Gt.O.) I GOOO 1 = l 3060 

IF (CV2.Gr.o.) I G00D2: 1 3090 

170 CONTINUE 3100 

AIP=A2 3110 

UBJSF2 3120 

c 3130 

C IF F 2 V I Oi 4 TES FEWER CONSTRAINTS THAN FI BUT STILL HAS CONSTRAINT 3140 

C VIOLATIONS RETURN 3150 

C — ...... ..... .... — ............. 31eO 

IF (NVC1 ,| T.NVC. AN0.NVC1 .GT.O) GO TO 710 3170 

C ----1 ..... — . — . — ........................ ... 3 1 BO 

c identify rest uf designs fi anf F 2 iiRo 

C — 3200 

C I BE ST CORRESPONDS TO minimum VALUE DESIGN, 3210 

C IF CONSTR iT nTS A«E VIOLATED, IBEST CORRESPONDS TO MINIMUM 3220 

C CONSTRAINT VIOLATION, 3230 

IF ( IGOODj , E 0 , O.ANO, IGOOD2.EQ.O) GO TO 180 3240 

C VIOLATED CONSTRAINTS. PICK MINIMUM VIOLATION, 3250 

I BE ST s 1 3260 

IF (CV1.Gf.CV2) IBEST=2 32/0 

GO To 190 32B0 

180 CONTINUE 3290 

C NO CONSTRAINT VIOLATION, PICK MINIMUM F, 3300 

IBEST=1 3310 

IF (F2.LE’.fi) I8EST=2 3320 

190 CONTINUE * 3330 

1 1 = I 3340 

IF (NCON.FO.O) GO TO 230 3350 

3360 

***** 2 - point interpolation ***** 3370 

3 36 0 

111=0 3390 

200 III — ITI + 1 3400 

ClsGKlIIi 3410 

C2sG(III) 3420 

IF (ISCdrn.EO.O) GO TO 210 3430 

c ... ............... ............. ........................... 3440 

C LINEAR CONSTRAINT 3450 

C 1 ..... ... ..... ....... 3460 

IF (C 1 .GE'. i , OE-5 .AND.C 1 .LE.CTBM) QO TO 220 3470 

Call CNMNo; (TI,ALP,7PU,ZRO,Cl,A2,C2,ZRO,ZRO) 3460 

IF (alP.Lf.O. 1 'GO TO 220 3490 

IF (Cl.GT', CTBM. AND, ALP. GT.ALPFES) ALPFES^ALP 3500 
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IF (Cl .l-T cTL.AND.alP.IT. AL?LN) ALPLNrALP 3510 

GO TO 220 * 3520 

210 CONTINUE 3530 

C ......... 354 0 

C NON-LINEaR CONSTRAINT 3550 

C — I ..... 3560 

IF (Cl .GE', i .OE-S.ANO.CI .LE.CTAM) GO TO 220 3570 

CALL CNMN rt7 <II,alp,ZRO,ZPO,C1,A2,C2,ZRO,ZRO) 3560 

IF (ALP.Lf.O.) GO TO 220 3500 

IF (Cl .GT'.cTAm.Ano.alP.GT.alpfeS) alpfeS = ALP 3600 

IF (Cl .LT'cT. AND.ALP.Lr, aLPNC) ALPNC=ALP 3610 

220 CONTINUE " 3620 

IF ( I 1 1 .Lt.nCON) GO 10 200 3630 

230 CONTINUE 3640 

IF (LINOB.i.gT, 0. OR. SLOPE. GE. 0.1 GO TO 240 3650 

C CALCUlATt AL p HA TO minimize FUNCTION, 36o0 

CALL CNMN oa ( II , ALPHIN, ZRO, ZRO, F 1 , SLOPE , A?, F2, ZRO, ZRO, ZRO, ZRO) 3e70 

24o Continue 3660 

C ....... ..................... 3690 

C PROPOSED MOVE 3700 

C - — .......................... ..... .............. 3710 

C HOVE at LfaS T Far ENOUGH TO OVERCOME CONSTRAINT violations. 3 720 

A3=ALPFES 3730 

c move to minimize function. 3740 

IF (ALPMIn r,T,A3) A3 = AL p MlN 3750 

C IF A 3 .LE.ni SET A3 s ALPSIO. 3760 

IF (A3,LE'.o.) A3 = ALPSID 3770 

C LIMIT MOVp TO NEW CONSTRAINT ENCOUNTER. 3760 

IF ( A3.GT' AI.PNC) A3 = ALPNC 3 790 

IF (A3.GT%l p LN) A3rALPLN 3800 

c make as non-zero. 3810 

IF (A3.LL, i.OE-20) A5=1,oE-20 3620 

C IF A3sA2= 4L pSID ANq FJ IS BEST, GO INVOKE SIDE CONSTRAINT 3830 

C MODIFICATION. 3640 

A L p B = 1 . -a?/a3 3850 

ALPAsl ..a, ps 1 0/ A3 3860 

JBESTsO 3870 

IF (AHS(A| P5) ,LT, 1 ,OE-10,ANO,A8S(aLPA).LT, 1 , 0 E • 1 0 ) JBESTsl 3880 

IF (JBEST'^fO, 1 .AND. IHEST.Ei3.2j GO TO 20 3890 

C SIDE CONSTRAINT check NOT SATISFIED, 3900 

IF (NCON.fq.O) GO TO 2oO 3910 

C STORE CONSTRAINT VALUES IN G2. 3920 

DO 250 I=(,nC0N 3930 

G2 ( I ) =G ( I ) 3940 j 

250 CONTINUE 3950 | 

260 CONTINUE 3960 ,j 

C IF A3=a? ( SET A3S.9.A2. 3970 

IF (ABS(A,pB).LT.1.0E-10) A3=.9 *a2 3980 

C MOVE AT LfaST . 0 1 * A 2 . 3990 

IF ( A3.LT' ( .01 .A2) ) A3 = .01*A2 4000 
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c 


LIMIT MOVf TO 5.*A£, 




aoio 




IF <*.3.GT' # (S.*A2>> A3=5.*A2 




ao2o 


c 


LIMIT MOVp TO ALPS 1 0 , 




4030 




IF (A3.GT;aLPSIO) A 3 = AL p S I D 




4040 


c 


MOVE A DISTANCE A3«S. 




4 OS 0 




ALP=A3-A2 




40o0 




ALPTOTiALpTOUALP 




4070 




00 270 I=),NOV 




4080 




A(I)=X(I) + alP»S(I) 




4090 


270 


CONTINUE 




4 i 00 




IF ( IPRINi.LT. 5) GO TO 300 




4110 




*RIT£ (6,780) 




4120 




WRITE (6,7U0) a 3 




4130 




IF (NSCAL' 4 FQ.O) GO TO 2<»0 




4140 




00 280 I=J,NOV 




4 1 SO 


280 


G(I)=SCAL(i)*xm 




4160 




WRITE ( 6 , 750 ) (G( I ) , 1=1 ,NDV) 




4170 




GO TO 300 




4160 


290 


WRITE (6,750) (X( I ) , 1=1 ,NDV) 




4190 


300 


CONTINUE 




4200 


c 






* 4210 


c * 


UPDATE FUNCTION AND CONSTRAINT VALUES 


4220 


c 


_ ^ 




• 4230 




NCAL ( 1 ) =NpAL ( ! ) ♦ 1 




a2«0 




JGOTo=2 




4250 




RETURN 




4260 


310 


CONTINUE 




4270 




F 3 = OB J 




4280 




IF ( IPRINt.gE.5) write ((,, 760) 


F3 


4290 




IF (1PRIN T< LT.5.0R,NCON,EQ.O) 


(iO TO 320 


4300 




WRITE (6,770) 




4310 




WRITE (6,750) (G(!),I=l,NCON) 




4320 


320 


CONTINUE 




4330 


c 






• 4 34 0 


c 


calculate maximum constraint 


violation and pic* sest design 


4 3S0 


r 






• 4360 


L 


CV3=0. 




4370 




IG0003=0 




4380 




NVC 1=0 




4390 




IF (NCON.FO.O) GO TO 3a0 




4 400 




00 330 I = j’ , nCON 




44 10 




CC = CT am 




4420 




IF (ISC(I).gT.O) CC=CT8M 




4430 




C 1 =G ( I )-Cr 




4440 




IF (Ct.GT rv3) Cv 3 = C 1 




4 450 




IF (Cl.GT.o.) NVCliNVCl+l 




4460 


330 


CONT 1 nuE 




4470 




IF (CV3,Gt.O.) I G00D3= I 




4480 


340 


CONTINUE 




4490 


C 


determine rest DESIGN, 




4500 
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C 

350 

360 

C 

370 

380 

C 

C 

c 



c 

c 



c 

c 

c 



390 



C 

C 

c 



IF CI8EST' F o.2) GO TO 36o 




a 5 1 o 


CHOOSE BETWEEN El AND E5, 




4520 


IE ( IGOODi .FO.O.ANQ. iGOOOi.EO.O) GO TO 350 




4530 


IE (CV1.Gf.CV3) 1 8ES T = 3 




4540 


GO TO 380 




4550 


IE (E3.L6*. FI ) IBEST=3 




«5b0 


GO TO 3«0 




4570 


CONTINUE 




4550 


CHOOSE BEtwEEn fi ANO E 3 , 




4590 


IE ( IGOOO?.fO.O.an 0 . Igo0o 3.EU.0) r.O TO 3 7 0 




4 6 0 0 


IF (CV2.Gf.CV 3) I BES T s 3 




46 1 0 


GO TO 380 




4620 


IE (E3,LE'.e?) IBEST=3 




4630 


CONTINUE 




4640 


*LP=*3 




4650 


OB J = E 3 




4660 


IE E 3 VJO, aTES FE^ER CONSTRAINTS THAN El RETURN, 


46 70 


IF ( N V C 1 .1 T.NVC) GO TO 7 l 0 




4680 


IF OhJECT tv E AND ALL CONSTRAINTS aRE LINEAR, 


return. 


4690 


IF (LINOS r.NE.O. ANO. NLNC.EO.NCON) GO t o 710 




47 00 


If A3 = A | e>|_N AND F 3 TS ROTH GOOD AND BEST RETURN 


47 10 


ALPB= 1 ,-A|_pl n/ a3 




4720 


IF ((ASS(ALPti).l-T.1.0E-20.ANO.IBEST,EQ.3).ANO 


, (IGOODi. EQ.O) ) GO TO 


4730 


710 




4740 


IF A3 s A( p S I D ANO F 3 IS BEST, GO INVOKE SIDE 


constraint 


4750 


MODIFICATION. 




4 760 


*LPA=1 ,-A|PSlD/A3 




4 770 


IF (ABS(A, p A ),LT, 1 .OE-20.ANO.I8EST.EQ.3) GO TO 20 


4 7 80 






4 7 9 0 


********** 3 - point interpolation 




4800 

4810 


*lpnc=alp<uo 




4820 


ALPCasALPsID 




4830 


alpfes=-i^ 




4840 


*LP m INs-1 . 




4850 


IF (NCON.FO.O) GO TO 4U0 




4860 


1 1 1 =0 




4870 


1 1 1 = 1 1 1 + 1 




4880 


C 1 =G 1 (III, 




4890 


C2=G? (Ill, 




4900 


C 3 = G (III) 




49 10 


IE ( I SC ( I Til .EO.O ) GO TO 400 




4920 
49 30 


LINEAR constraint, EINO ALPEES OnL V . ALPLN 


Same as BEFuRE. 


4940 
4 95 0 


IF (Cl.LE'.CTBM) GO TO 4 3 o 




4960 


11 = 1 




4970 


CALL CNHN07 ( 1 1 , *LP, ZRO, ZRO.c l > A3,c3, ZRO, ZRO) 




4980 


IF (ALP.Gt.aLpFES) alPFES=aLP 




4990 


GO TO 430 




5000 
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« 00 


CONTINUE 




3010 


c 






5020 


c 


NON-LINEaR CONSTKaINT 




5030 


c 


* 




5 0 4 0 




1 1=2 




5050 




CALL C NMNfl i (II,aLP,ZR0,Z«0,C1,A2,C2,A3,C3) 




5060 




IF (ALP.LF.7R0) GO TO a30 




5070 




IF (C 1 ,GE‘ CT .AND. Cl .LE.O. ) GO TO alO 




5080 




If (c i .gt. c tam.or.c i .lt .o. ) go to 020 




5090 


c 


ALP IS mInjmUm MOVt, UPDATE FUR NEXT CONSTRAINT 


ENCOUNTER , 


5100 


4 l o 


AlPAsalP 




5110 




Call C NPNA 7 ( I I , ALP, ALPA, ZRO,C 1 , A?,C2, A3,C3) 




5120 




IF (ALP.LT.ALPCA. ANO. ALP. Gt. ALPA) ALPCA=ALP 




5130 




GO To u 50 




51^0 


420 


CONTINUE 




5150 




IF (ALP.Gt.aLPFES.AND.C1.GT.CTAM) ALPFESsaLP 




5160 




IF (ALP.Lt.aLPNC.AND.CI .lT.O.) ALPNC=ALP 




5170 


430 


CONTINUE 




5180 




IF ( I I I .LT.NCON) GO TO iRO 




5190 


440 


CONTINUE 




5200 


r 


IF (LINOB.j.gT.O, OR. SLOPE, GT, 0 .) GO TO 450 




5210 

5220 


L 

c 






5230 


c 






5240 


720 


FORMAT (/sX,25HThREE-P01nT INTERPOLATION) 




52S0 


730 


FORMaT (Z//// 58 H* * * CONSTRAINED ON£ -D I ME NS l ON A L 


SEARCH INFORMATI 


5260 




ION * » ») 




5270 


740 


Format (/>sx, i5mP r OPOSED DESIGN/sx, 7HALPHA = , E 1 2 . 


5/5X,8HX-VECT0R) 


5280 


750 


FORMAT (ly.HEl*. 1 *) 




5290 


760 


Format (/c;x r 5Ha8J =,tt3.5) 




5300 


770 


format ( / s x . 1 zmconstra int values) 




5310 


780 


format ( /ex, 23 HTWO-POINT INTERPOLATION) 




5320 


790 


format (/sx,35h* * * end of one-dimensional search) 


5330 




End 




5340 



I 
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SUBROUTINE c nmn 0 7 (II, XBaR,EPS, XI, Y l , X2, Y2, X3, Y3) 10 

c Routine to find first xbaR.ge.eps corresponding to a real zero 20 

C OF A ONE-njMENSlONAL FUNCTION BY POlYNONiEu INTERPOLATION. 30 

BY 0, N, VANOERPLAATS APRIL, 1972. 40 

NaSA-aMES rfSfaRCH CtNTER, MOFFETT FIELD, CALIF, SO 

II = CALCULATION CONTROL, 60 

11 ?_ POINT LINEAR INTERPOLATION, GIVEN X i , Yl, X2 AND (2, 70 

25 3 -pOiNT QUADRA T jC INTERPOLATION, GivEn XI, Yl, X2, t 2, dO 

y 3 and Y3. 90 

EPS may Bf NEGATIVE, 100 

if Required Zf«o on r does not exits, or the function is no 

ILL-CONOITIONEO. x 0 aR = EPS-1.0 rill BE RETURNEO as an error 120 

Indicator'. 130 

IF OESIREd INTERPOLATION IS ILL-CONDITIONED, a LOWER ORDER 140 

INTERPOLATION, cONSISTaNT WITH INPUT daTa, will BE ATTEMPTED and 150 

II WILL Bf CNANGED ACCORDINGLY. 160 

XBARi sF.PS_i , 170 

X0AR = xBAR7 1 BO 

JJsO 190 

X21=X?-X 1 200 

IF (aBS(Xri).lT,1.0E-20) RETURN 210 

IF ( 1 1 , EO' 2 ) GO TO 30 220 

230 

CONTINUE 240 

- - - - 250 

11=11 2-POlNl LINEAR INTERPOLATION 2e0 

270 

11=1 2B0 

YYsYl*Y2 290 

IF (JJ.EO'.o.OR.YY.LT.O.) GO TO 20 300 

Interpolate between xj and X 3 . iio 

DysY3«y2 320 

IF (APS (Dv) ,LT . 1 . OE-20) GO TO 20 330 

X0aR=x2+Y?*( X2-X31/DY 340 

IF (XflAR.i T.LpS) X8aRsX0aR1 350 

RETURN 360 

DY=Y2-Yl 370 

INTERPOLATE UFTWEEN xi AND X 2 , 380 

IF (A0S(Dy) ,LT , 1 . OE-20) RETURN 390 

XBARsX 1 +yT* ( X 1 -X2) /DY 400 

IF (XRaR.iT.EPS) XbAHiXBARl 410 

RETURN 420 

CONTINUE 430 

..................... 990 

I I = 2 1 3-ROINT QUADRATIC INTERPOLATION 450 

-1.. .... ........... ... - 960 

JJsl 470 

X31=X3-X1 480 

X32*X 3-X2 490 

QQsX21 *X3?»x32 500 
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IF (ABS(Qq) .LT. | .OE-2o> RETURN 510 
AAr(Yl *X3?.Y2.X31+Y3»X21 )/0Q 520 
IF (ARS(Aj) .LT, l « OE-20 ) GO TO 10 530 
BBs(Y2*Y1 i/y21-AA»(X1+x2) 500 
CC = Yl -XI *' ( aa*X1+HB) 550 
BAC = HR*HB„/j . *AA«CC 560 
IF (bAC.Ct.O . ) GO TO 10 570 
bac-sort (rac) seo 

AAs.S/AA 590 
XBaR=AA*(b*C-B6) 600 
XR2=-AA.(b*C+HB) 610 
IF (XRAR.IT.EPS) X B4 KsXB2 620 
IF (XB2.Lt.xHaR.AND.XR2.gT.EPS) XRARsXB2 630 
IF (XRAR.i x.EPS) XBAHsXBARl 640 
RETURN 650 
ENO 660 
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SU0ROUTIn f CNMN08 (NDB,NER,C»MS1 ,8,N3,N0,N5) 10 

DIMENSION c(N0),MSl(N5),B(N3,N3) 20 

C ROUTINE T n SOLVE SPECIAL LINEAR PROBLEM FOR IMPOSING S-TRAnSPOSE iO 

times s.Le.i bounds in the modified method of feasible directions. oo 

BY G. N, VANDERPLAATS APRIL, 1972. SO 

NASA-AMES research center, mOFFetT field, CALIF. oO 

Ree. ’structural optimization by methods of feasible directions*, 70 

G, N , VANdeRPlaaTS AND F, MOSES, journal OF COMPUTERS 00 

and structures, VOL 3, PP 739. 7SS, 1973. 90 

Form of L' P. is BX=C where 1 ST nob COMPONENTS OF X CONTAIN VECTOR lvO 

U AND last nOB components contain VECTOR V. CONSTRAINTS ARE 111) 

U.GE.O, V'.GE.O, AND U-TRaNSPOSE TIMES V s 0. 120 

NER = ERROR PLAG. IF NER.NE.O On RETURN, PROCESS HAS NOT 130 

CONVERGED in 5*NDH ITERATIONS. loo 

VECTOR MS j IDENTIFIES the set OF basic variables. iso 

........................ ............................ ... lao 

CHOOSE initial BASIC variances as v, and INITIALIZE vector MSI 170 

.... ....................... — .... ....................... lao 

NER=1 190 

M2=2.NDB 200 

CALCULATE CRH I n and EPS AND INITIALIZE MSI. 210 

EPS=-1.0E;io 220 

CBMlNsO, 230 

00 10 1=1, NDB 200 

BIrB(I,I) 250 

CBMAxsO. 2e0 

IF (RI ,LT* .t .0E-6J C3MAXsC(I)/Bl 270 

IF (B!.GT' t PS) EPS=BI 2B0 

IF (CPMAx'gT.CBmIN) CbmInsCBMax 290 

MS1(I)=0 " 300 

EPS=.0001,f°S 310 

IF (EPS.Lt.-I.OE-IO) EPSs-l.OE-lO 320 

IF (EPS. Gt... 0001 ) EPS=-.0001 330 

CBMIn=CBM TN * 1 .OE-0 300 

IF (CBMIN’ >l t. 1 .0E-10) CBMlNsl ,0E-|0 3S0 

1 T£ R 1 s 0 * 3oO 

NMAXs5*ND« 370 

— ...................... ....... ........ .......... 380 

********** Begin new iteration ********** 390 

.......... ........... ..... .......... ............. 400 

20 ITfcRlsITEot *1 010 

if (iteri'.gt.nmax) ret urn 020 

C FIND Max. C (l)/fl(I,I) E°R 1 = 1 , NDB. o30 

CBMAX=.9*crmIN ooo 

ICHKsO OSO 

00 30 1=1. NDB 990 

C1=C(I) 070 

BI=B(I,I) OOO 

IF (BI.GT'^EPS.OR.Cl.GT.O.) GO to 30 090 

CB=Cl/BI 500 
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IF (CB.LE'.CRMAX) Go TO Jo 510 

lCHKs] 520 

CBMAXrCB 530 

JO CONTINUE 590 

IF (CHMAX'^t.cBMIN) GO TO 70 550 

IF (ICHK.po.O) GO TO 70 560 

C UPDATE VtrTO« MSI. 570 

JJsICHK 560 

IF (MSI ( J.J) .EO.O) JJ = ICHK + NDB 590 

KKrJJ+NDB 600 

1F(KK.GT’,M2)KK = JJ-N08 610 

MSI (KK)=IfhK 620 

MS1(JJ) = 0 6 J 0 

c -- ............. ...... ........... ......... 690 

C Pivot OF B(ICHK,ICHK) 650 

C 66 0 

6B=1 ,/HdrHKi ICHK) 670 

DO 90 J=1.nDB 600 

90 B(lCHK,Jl sf io*M(ICHK,J) 690 

C ( ICHK ) =CbmaX 700 

BCICHK, IChk1=BB 710 

C ELIMINATE COEFICIENTS ON variable ENTERING BASIS AND STORE 720 

C COEFICIENTS UN VARIABLE LEAVING BASIS IN THEIR PLACE. 730 

DO 60 1=1, nD0 790 

IF O.EO.tchK) 60 T0 &0 750 

BBl=B(I,I r nK) 760 

B(I,1CHK) s0 . 770 

DO 50 J=1 ,ndB 700 

50 B(I,J)=B(T,.n-BBl«B(ICHK,J) 790 

C(I)=C(I).gRl*CBMAX 300 

60 CONTINUE 810 

GO To 20 820 

70 Continue 830 

N£R = 0 890 

C ... .............. 850 

STORE ONLY c°mPONEnTS OF U-VECTOR IN *0', USE B(I,1) FOR 860 

Temporary storage 870 

.... ..... ................ ............... 80 0 

DO 80 1=1 , NOB 890 

B( I * 1 ) =C ( T ) 900 

80 CONTINUE 910 

DO 90 1=1. NOB 920 

C ( I) =0 , 930 

J=MS1(I) 990 

IF (J.GT.n) C(I)=B(J, 1 ) 950 

IF (C(I).| T.O.) C(I)=0. 960 

90 CONTINUE 970 

RETURN 900 

End , 990 
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subroutine analiz<icalc) io 

C ROUTINE To PERFORM LASER TURRET ANALYSIS IN SUBSONIC AND 20 

C SUPERSONIC eLOW. 30 

C BY G, N. vanOfRPLAaTS 9ULY, 1977. 90 

c naval postoraduats so 

c naval postgraduate school, monterey, calif, to 

COMMON /G| OBCM/ ABARC50),ACL,ANPR1M,AL,AMACHI(30),BBAR(20),DENRTO, 70 

» dE n G Am 'EpS, E p SM, gamma] (30), PhIIC30),RfUS,SiOPeY(30), SUMP02 , 80 

* TDENRT,Thma<, RAVEL. "GHTK30).XM 90 

COMMON /CmlOC/ E T Al M 6 ) , MAXK, MAXP, NBEAM, net A I, NRBI , NTHBC , NXBC, 100 

* RBl(10),C T TLE(20),YYPX8C(10,3),YVPTHC(10,i) 111) 

COMMON /CmlOC?/amX( 10, 15) , Bmx( 10, 1 5) , ANT( io, IS) 120 

DIMENSION t ( 1 0) , AN ( 1 o ) , B n( 1 0 ) ,PDISII (200) 130 

C FOURIER Expansion. i«o 

nmax=io 150 

MMAXslO loO 

C OPTICAL PiTH LENGTH. 170 

KTRAP=3 180 

B = 9. 190 

NPRInT=0 200 

IF (ICALC'.gT.I ) GO TO 10 210 

call t i npiit 220 

C CALCULATE FOURIER COEFFICIENTS. 230 

Call FCOEe ( aL, ACL, THMAX, an, bn.maxk , MaXP, NMAX, MMAX) 290 

RETURN 250 

10 CONTINUE 260 

YYPXBC ( 1 , ?)stPS 270 

YYPTBC(1,?)=EPS 280 

I PR 1 NT sO 290 

IF (ICALC'.EO.3.OR.NPRlNT,GT,0) IPRINTsi 300 

I PL OT =0 * 310 

IF (ICALC'.EO.S) IPLOTrl 320 

SUM p 02=0. 330 

C BOUNOARY CONDITIONS. 390 

C x. DIRECTION. 350 

NSYMso 3b0 

AMULT = EPS,rbAP( 1 ) 370 

Call ecoNp ( nsym,nxbc, yypxbc, abar.maxk, al,amult) 3bo 

C ThETa-DIReCTION, 390 

NSYMsl 900 

AMULT=EPS,ABAR( 1 ) 910 

Call BCONn (NSYM, NIHUC. YYPTbC ,BBAR, MaXP, THMAX, AMULT) 920 

DO 30 I BE am= 1 , NHE am 930 

AMACHsAMaChT ( IBEAM) 990 

call PhdIst (X, R, The Ta , EPSM, xm, Phi , Gamma, RhO, y, Z , PHI pp, U, v, CP, abar 950 

1,BBAR,AL,»CL»ThMAX,EPS,RiNDEX,RB,CTA,AN,BN,MAXK,MAXP,NMAX,MMAX,KTR 960 

2AP,A,B,T,n F LUPL,IBtAM,REFDPL,' , AVEL,RFIIS,ETAT,RBl,GAMMAI,PHII,NtlAl 970 

3, NRB1 , TDEnPT, PDIST I , DFNGAM, AMACH, PENRTO, AKPRIM, IPRINT, IPLOT ) 960 

c SUM OF SQUARES OF PHASE DISTORTION. 990 

NNsNRB I *N p I A I 500 
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SMPUo. 5 1 0 

DO 20 1*1, nn 520 

20 Smpjssmpi * pnIsTT (I )**2 530 

SUMP[>? = SUmpo2 + WGhT I (I8E A H)*SMPJ 54 0 

30 CONTINUE 550 

TheTasO. 560 

Ns 2 0 570 

XMAXs2.**i' 580 

XMlNs-XMAy 5<?0 

R*0. 600 

IF( IPRINT'fO.O) go TO 50 610 

DO 60 1*1* nRE AM o20 

AMACHsAMAchT ( I ) 630 

I F ( I , EQ , 1 > r,0 TO 80 660 

I H 1 * 1 • 1 650 

DO 70 J = 1 , T m t 660 

OHACHsANAchI ( J ) -AMaCH 670 

IF( ABS COM 4C H) ,LT, 0.001) GO TO 60 680 

70 CONTINUE 6R0 

80 CONTINUE 700 

Call CPPRnTiThETA, AMACH, AL,ACL,THMAX,MAXK,MAXP,NMAX,NMAX,ABA k, 710 

* R8 a R»EPS. AN, rN,N, XMIN, XMA t, S.OENGAM) 720 

60 CONTINUE 730 

Call SURPpT(ABAR,B8AR,BAXK,HAXP,EPS,AL, THMAX) 740 

write (6,«r»)SUNPD2 750 

C CALCULATE TURRET SLOPE at 30 POINTS, 7t>0 

50 N v AL* 30 770 

AmuLT = EPS, r rAR( 1 ) 780 

Call slop f (Maxk, abaR,al,slopex,nval,amulT) 79o 

RETURN 8U0 

C 810 

ao FORMAT { / / / 5 X , 36HSUM OF SQUARES OF PHASE DISTORTION *,£12.5) 820 

END 830 
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SUBROUTINE rCONO (NSYM,NrC/YYPBC#ABAR,HAXE>XHEF,AmULTS) 10 

OIMENSION yyPBC(10,1),ARaR( 1 ),Aflo, 10),B(10) 20 

Routine Tn impose polynomial boundary conditions, jo 

The FIRST npCT COEFICItNTS OF ABar ARF CALCULATED where NBCT is no 

The total mu'TreR of b. c. s. So 

total num^r of boundahy conditions, bo 

NHCTsO 70 

00 10 1=1, NBC «o 

IF (ABS{YypoC( I ,2) ) ,LT, 1 0 0 . ) NBCTsNBCTtl 90 

IF ( AHS( YyprC ( I , J) ) ,LT , 1 00 . ) NBC T sNBC T ♦ 1 100 

10 CONTINUE 110 

IF (NBCT.i e.O) RETURN 120 

MAXE 1 SMA Xp * 1 1 JO 

C IMPOSE SYmmfTRY IF REQUIRED. 140 

N S Y M 1 = l ISO 

IF (NSYM.eo.O) GO TO 30 IPO 

NSYMJS2 170 

DO 20 I =2 ma Xf 1 , 2 180 

20 ABAR(I)=0. 190 

JO CONTINUE * 200 

C NUMBER OF c nEFIClENTS ELIMINATED. <210 

N\ =NRC T *N^ym 1 220 

C SET UP COffICIEnT MATRIX and PhS, 2J0 

N=0 240 

JJ=NSYM1 *\ 2S0 

DO 70 1=1. NRC 260 

XrYYPBC ( I . n *XREF 270 

IF (ABS(YyPrC(I,2)).GE.100.) GO TO 50 280 

C Y BOUNDARY CONDITION. 290 

NsN +1 J00 

B(N)=YYPBrd , PI/AMULTS Jl o 

L= 1 J20 

A A : 1 , JJC 

DO 40 J=1 . HAXEl ,NSYMl J40 

IF (J.GT.ni ) R(N)=H{N)-ABAR(J)*AA JSO 

IF (J.LE.N1) A(N,L)=AA JPO 

L = L ♦ 1 570 

A A = A A * X JSO 

IF (NSYMl^pQ. 2 ) A A r A A * X ' J90 

40 CONTINUE * 400 

50 CONTINUE 410 

IF (ARS( YyprC( I , J) ) ,GF . 100. ) GO TO 70 420 

c y-prime boundary condition. 4jo 

NrN+l 440 

B(N)sYYPBe(T»J)/AMULTS 450 j 

L = 2 4 bO I 

A(N,1)=0. 470 j 

A A = 1 , 480 

IF (NSYMl‘^EQ.2) AA = X 490 

DO BO J = J.|,MAXE1 ,NSYMJ 500 
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B8 = FL0 A T (.!)-!• 


510 


IF CJ.GT.mi) B(N)=6(N)-A6A«(J)*BB*AA 


520 


IF ( J.LE.ni) a (N, L) =AA»6b 


530 


L = LM 


540 


A A s A A * X 


550 


IF (NSYMl'.EO.?) A As a A* X 


560 


CONTINUE 


570 


CONTINUE 


560 


DETERMINE cOtFICIENTS. 


590 


M 1 s 1 0 


600 


M2=10 


610 


M 3= 1 0 


620 


Mas i 


630 


Nic = l 


640 


Call GEL I m 2 (A,H,N,NLC,M 1 ,M2,MJ,Ma,NER) 


650 


STORE RESULTS IN ABAR, 


660 


J=1-NSYM1 


670 


DO BO 1=1, N 


660 


JsJ+NSYMl 


690 


ABAR(J)s8 f n 


700 


RETURN 


710 


End 


720 
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subroutine besj 

PURPOSf 

COMPUTE The J bESSEL FUNCTION for A GIVEN ARGUMENT and order 
USAGE 

C A U | rE$J(X,N,BJ, 0 , IER) 

OESCRIpttOn of PARAMETERS 

X • T hE ARGUMENT UF The j BESSEL function desired 
N .THE ORDER OF The J BESSEL FUNCTION DESIRED 
0 J -THE RESULTANT J BESSEL FUNCTION 
D .REQUIRED ACCURACY 
IER. RESULTANT error CODE *HfRE 
j E pr 0 NO E RRO w 

_TER =1 N is negative 

x IS negative or ZERO 
TER=3 REQUIRED ACCURACY NOT OBTAINED 

T£R = 4 range UF N COMPARED TO X NOT CORRECT (SEE REMARKS) 
REMARK* 

n must re greater than or equal to zero, but it must be 
L5S$ than 

P 0 +10*x-x** 2/3 FOR x LESS Than OR EQUAL TO IS 
Q 0* x /2 f OR X GREATER THAN 15 

SUBROUtjnES ANO FUNCTION SUBPROGRAMS REQUIRED 
NONp 

method 

recurrence Relation technique described by h. goldstein and 

R,h' THALeR' 1 RECURRENCE TECHNIQUES for The CALCULATION of 
BESseL FUNCT IONS' iM,T,a.C«»V. 1 3 , PP # 102*108 AND I. a, STEGUN 
and m, ABRAMOHITZ, ‘GENERATION OF BESSEL FUNCTIONS ON HIGH 
SPEfD COMPUTlRS»,m # T.A,C,, V # 1 1 , l 9 S 7 ,PP, 255-257 



SUBROUTJNp bESJ(X,N, 8 J, 0 , IER) 

c 

BJ=.0 

IF(N) I 0 , 2 o ,20 
10 I ER - 1 
RETURN 

20 IF (X) 3 0 , 3 o . 3 1 

30 IER=2 

RETURN 



10 

20 

30 

ao 
50 
60 
70 
60 
90 
100 
110 
120 
130 
140 
150 
loO 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
4 1 0 
420 
430 
4 4 0 
4 5 C 
460 
470 
460 
490 
500 
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SUBROUTINE RtsJ 

510 



31 1F(X-I5.)^2,3a^3 y ^ t 530 

33 NTFST=30.;io. ♦*-*** 2/3 530 

GO TO. 3b 5a0 

34 NTEST-R0.;x/2. 550 

36 1 F ( N-nTESt ) aO , 3b t 38 560 

38 IER=a 570 

RETURN 580 

ao IER =0 590 

NisN+t 600 

BPREV= # 0 610 

C b2 0 

c compute- Sta^ t t^g value of m 6io 

c 6ao 

lF(X.5.)5o,60 # 60 650 

SO MA=X + 6. 660 

GO TO 70 670 

60 Ma= 1 .a*X«-fcO./X 680 

70 MB = N + IFIX' fX )/^ + 2 690 

MZtPO=MAXo(MA,M8) 700 

c 710 

C SET UPPER L T ^ I T OF H 730 

C 730 

. mmax=ntest 7ao 

100 DO 190 M=m7E h 0 # MMAX, 3 750 

C 760 

C SET F(M) ,F(M-1 ) 770 

C 780 

FMl=l,0E-?8 790 

FMs.O 800 

ALPHAt.O 810 

IF (H-(M/3^*?) 120, 1 10# 130 830 

110 JT=- 1 830 

go to 130 aao 

120 JT=1 850 

130 M2=m-2 860 

DO 160 K=T,m2 870 

MKsH-K 880 

BMK-3* *FLn A T ( MK ) *FMt/X-FM 89 0 

FHzFHl 900 

Fm=HMK 910 

1F(mk-N-1^ 1 S 0 # laO, 150 920 

ia0 BjsHMK 930 

ISO J T - • J T 960 

S s 1 ♦ J T 950 

160 ALPH A = ALPMA + B*^ K 960 

8 M K S 2 , * F M J /X-FM 970 

1F(N) 180,170# 180 980 

1 70 BJ=B*K 990 

180 ALPHAS aLPma +BMK 1000 

BJsBJ/ALPha 
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IF(ABS(0J.RP«EV)-48S(O*BJ) ) 200 , 200 » 190 


1010 


190 


BPPEV-=BJ 


1 0^0 




1ER = 3 


1030 


200 


RETURN 


1 0 ci 0 




tNO 


10S0 
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subroutine besk . * io 

20 

compute The k bessel function for a given argument and order jo 

UO 

USAGE SO 

CALl gESK(X,N,BK, I eR) O0 

70 

DESCRIPTION OF PARAMETERS bo 

x .the ARGUMFNT of The K BESSEL FUNCTION DF S I RED 90 

N IthE ORDER OF The K BESSEL FUNCTION DESIRED loo 

8K itHE RESULTANT k BFSSEL FUNCTION 110 

IER-RESULTANT error CODE RH£RE 120 

TER=0 no ERROR 130 

TER=1 n IS NEGATIVE 100 

T£R = 2 X is ZERO OR NEGATIVE ISO 

TER=3 X ,GT, 170, MACHINE RANGE EXCEEDED 160 

j E R=q BK ,GT, 10**70 170 

1 BO 

REMARKS 190 

n must he greater than or equal to zero 2uo 

210 

SUBROUTINES ANO FUNCTION SUBPROGRAMS REQUIRED 220 

NONf 230 

290 

method 250 

Computes ZERO ORDER and FIRST ORDER BESSEL FUNCTIONS USING 260 

SeRteS APPROXIMATIONS ANq Then COMPUTES N Th ORDER FUNCTION 270 

using recurrence Relation. 2bo 

Recurrence relation and polynomial approximation technique 29o 

AS ^SCRIBED BY A. J.M. HITCHCOCK, 'POLYNOMIAL APPROXIMATIONS 300 

TO rfSSfL FUNCTIONS OF ORDER ZERO AND ON£ and TO RELATED 310 

FUNCTIONS’, M,T.A. C ., V. 1 1 , 1 9S7,PP. 86-88, a N q G.N. WATSON, 520 

•A TR£ a T ISE on the THEORY of BeSSEL FUNCTIONS'. CAMBRIDGE 330 

UNIVERSITY PRESS, 19Sg, P. 62 390 

3S0 

560 

370 

SUBROUTINf RESK (X,n,BK,IER) 3B0 

DIMENSION t ( 1 2 ) 390 

BKs.O 900 

IF (N) 10.20,20 910 

10 IER=1 920 

RETURN 930 

20 IF (X) 30. JO. 90 990 

30 lER-2 9S0 

RETURN 960 

90 IF ( X - 1 7 0.01 60,60,50 970 

50 I ER= 3 9B0 

RETURN 990 

60 IER=0 500 
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IE (X-i.) j RO » 1 ' 70 51 0 

70 AzEXP(-X) 520 

B= 1 . /X 530 

CzSQRT(R) 500 

T(1)=R 550 

Bn Ro 1 = 2*12 SoO 

BO T(L)=T(L“1 )*B 570 

IE (N-l) 00,110,90 500 

C 590 

C COMPUTE on USING POLYNOMIAL APPROXIMATION 600 

C 0 1 0 

90 t>0 = A,(i.2 v -^iai-. 1560092. T(l) + .0SRlll?a*T(2)-. 09 !j909S.T(3)*.liua5 620 

l96.T ( a)-,p ? o9R50.T (5) t. 579291 0 . T ( 6 ) - . S2<1 7 27 7 . T ( 7 ) ..55 75 568 «T (8) -.9 630 

2262633*T(O)..21fluSlfl*T(l0)-. 06od0977.r ( 1 1 ) ♦ . 009189 38 3» T ( 1 2) ) *C 690 

IE ( M ) 90,100,110 630 

100 BKrGO 660 

RETURN 670 

C 660 

c compute k7 using polynomial approximation 69o 

c 700 

110 Gl=A, ( 1 .2533191 ♦. 969902 7. T ( \ 1 96858 3 . T ( 2 ) ♦ . 1 280927*7 (3)*. 173095^ 710 

L*T ( a ) f ,28„76|R*T ( 5)-.959q39?. T (6). .62R3381 *T(7)-.6632298* T(8) ».505 7 20 

20239. T(9)_ >3 3ftl309*TdO)+.07 B8000l*T(ll)-. 01082918 , t(12))*C 730 

IE (N- I ) oo, 1?0, 1 30 790 

120 8K zG 1 750 

RETURN 760 

C 770 

c from K0,k7 COMPUTE KN USING RECURRENCE RELATION 780 

C 790 

130 DO 160 J=3,N 800 

GJz2.*(ELoaT(J)-1.).G1/X.G0 810 

IF (GJ-l.nE70) 150,130,190 820 

190 IER=9 830 

GO TO 170 890 

150 GozGl 850 

160 G 1 zG J 860 

170 BKzGj 870 

RETURN 880 

180 BzX/2. 890 

A=.5772157+aL0G(8) 900 

Czb*H 910 

IF (U-l) ?90»220,190 920 

C 930 

c compute K n using series expansion 990 

C 950 

190 GO=*A 960 

X2 J= 1 , 970 

EaCTz), 980 

HJz.o 990 

DO 200 J= t , 6 1000 
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SUBRoUTINf bES* 


1010 


RJs 1 ,/FLOiTCJ) 


1020 


X 2 J = x2 J»C 


lOiO 


f ACT:FACT. rJ*RJ 


l o a o 


MJsHJ+RJ 


1050 


GO=GO+X2J.FaCT * (HJ-A) 


1060 


IF (N) 220,210,220 


1070 


BK = liO 


1080 


RETURN 


1090 


COMPUTE USING SERIES EXPANSION 


1100 

1110 


X2J = B 


1U0 

mo 


FACTsl . 


1 l 40 


HJ=t. 


1 l so 


Gl = l ,/X + X?J,(.5*A-HJ) 


1 160 


DO 2 SO J = ?,B 


1170 


X2J=X2J*C 


t 180 


RJst ,/FLOaT(JI 


1 190 


F ACT = FACT«nJ*RJ 


1200 


H JsHJ + R J , , 


1210 


GtsGl»X2J*FACT*(,S+(A-HJ)«FLOAr(J)) 


1220 


IF (N-l) t ^0 > 2R0 » 1 30 


1230 


BKsGt 


1200 


RETURN 


1250 


END 
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JO 

Subroutine best ho 

so 

PURPOSfr 60 

COMPUTE THE Y BESSEL FUNCTION FOR A GIVEN ARGUMENT ANO ORDER 70 

80 

USAGE 90 

C A L j bEST(X,N,BY, IeR) 100 

110 

DESCRIPTION OF PARAMETERS uo 

X .the argument Of the Y BESSEL FUNCTION DeSIREO 130 

N .THE ORDER OF The Y hESSEL FUNCTION DESIRED 140 

BY IthE RESULTANT Y HESSEL FUNCTION 150 

IER^RFSULTAnT ERROR COOE wheRE 160 

TE pr 0 NO ERROR 170 

T£R=l N IS NEGATIVE 180 

TER = 2 x IS NEGATIVE UR ZERO 190 

TER = 3 BY HAS EXCEEDED MAGNITUDE OF 10**70 200 

210 

REmaRKj 220 

very small values of x may cause the rangf of the library «?jo 

Function AL0G 10 BE EXCEEOEO 200 

x must re greatfr than zero 25 o 

n must be greater than or equal to zero 260 

270 

SUBROUTINES and FUNCTION SUBPROGRAMS REQUIRED 280 

NONf 290 

J00 

METHOO J10 

recurrence relation and polynomial approximation technique 120 

as DESCRIBED by A. j.m. hITChCOCK, 'PO l YNOMIAL APPRUXIMAT ions 350 

TO RESSEL FUNCTIONS OF ORDER ZERO and ONE and TO RELATED 300 

FUN C TI0NS', M.T.A.C., V , 1 1 , 1 95 7 , H P . 8 6- 88 , AnO G.N. "ATSON, 550 

'A TRFATISE on the theory of BESSEL FUNCTIONS', CAMBRIDGE 360 

UNIVERSITY PRESS, 1958, P, b2 370 

380 

’ 190 

400 

SUBROUTINE flEsY(X,N,BY, IER) 010 

020 

CHECK FOR eR« 0RS IN N AND X OiO 

OOO 

IF(N) t«o,tn, 10 050 

10 IER=0 _ 060 

IF(X) 190, >90,20 070 

080 

Branch if % LESS than or equal o 090 



500 
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20 IF(X.<1.0)40, a 0, JO , 510 

C 520 

C COMPUTE YO and Y 1 FOR X GREATER THAN 4 530 

C 50 0 

30 Tl=«.o/X 550 

T2= T 1 * T 1 560 

p 0=( (( (-.fiO000i70O3*T2+,00001 73565).T2-.00O0O87613) *T2 570 

1 + .000 1 7i;a3).T2-. 001753062). T2 + . 3989423 580 

u 0=((((.Or>0O0323l2«T2-.00001O2078 ) »T2+.00003O2O68)*T2 590 

1 -.000086979) )*T2 + , 000 a 564.32O).T2-, 01246694 600 

P l=((((.00000a2Oia,f2-.0000200920)*T2+.00O05a0759)*T2 610 

1 00022X205). T2+, 00292)826) *T2+. 3989023 620 

(J t = f f c C.oooO 036590.7 2 +.0 0 00 1622).! 2-. 0000 398 708).! 2 630 

1 ♦ ,000 1 06070 }) *T2-,0006390a00) * T2+ .03 790080 600 

A = 2 . O/SQRt ( X ) 650 

BsA * T 1 660 

C=X-. 7853082 670 

YO=A*PO.StN(C)+H.OO*COS(C) 680 

ri=-A.Pi *rns(C)+B.Qi*siN ( o 690 

GO TO 90 700 

C 710 

C COMPUTE YO AND Y 1 FOR X LESS THAN OR EQUAL TO 0 720 

C 730 

00 XXrX/2. 7 0 0 

X2=XX»XX 750 

T=ALOG(XX,,. 5772157 760 

SUMro. 770 

TERMsT 780 

YO=T 790 

00 70 L=1 , l 5 800 

IF(L-1 )50 60.50 810 

50 S U K s $ u M ♦ 1 ./FLOAT (L— 1 ) 820 

60 FL=L * 830 

TSrT-SUM 800 

TERM=(TFRm* ( -X 2)/FL**2) .(1 ,-l ,/(F l*TS) ) 850 

70 YO=YO+TERm 860 

TERM s XX. ( t-,5 ) 870 

SUM=0. 880 

YlrTERM 890 

DO 80 L=2 16 900 

SUMsSUM+1 ./FLOAT (L-l ) 910 

F L = L * 920 

F L 1 =FU - 1 . 930 

T S = T-SUM 900 

TERMs (TER m, (-X 2)/(FL1.FL) ).( (TS-,S/FL)/(TS+.5/FLl ) ) 950 

80 Y)=Y)+TERm 960 

P I 2 = , 6366 ) 98 970 

Y0=PI2*Y0 980 

Y1s-PI2/X; P i2«Y1 990 

C 1000 
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C CHECK IF ONLY YO or Tt IS OESIREO 1010 

C 1020 

RO IF(N-i ) lOo, 100, 130 1030 

1000 

RETURN EITHER TO or ri as REUUIREp 1050 

1060 

100 IF(N) 1 10, 120, l 10 1070 

110 B Y = Y 1 1000 

GO TO 170 1090 

120 0 Y s Y 0 1100 

GO TO 170 1110 

1 120 

PERFORM RECURRENCE OPERATIONS TO FIND Yn(X) 1130 

1 190 

130 Y A s Y 0 1130 

YBrY 1 1 1 bO 

K=1 1170 

190 TrFLOAT (2 *k )/X 1180 

YC=T*YH-Y a 1190 

IF(ABS(YC 1 _i.0E70)l«5,l«5,191 1200 

191 IER=3 1210 

Return 1220 

195 Ksk + 1 1230 

IF(K.N) 15ft, ibo, 150 1290 

150 Ya=YB 1250 

YB=YC 1260 

GO To 190 1270 

160 B Y s Y C 1280 

170 RETURN 1290 

180 I ER- 1 1300 

RETURN 1310 

190 I ER=2 1320 

RETURN 1330 

ENO 1390 
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SUOROIITlNp cPPWNT ( THE T A , AMACH, AL, ACL, THMAX , MAXK , MAXP, NMAX , MMAX, A8 10 

1AR,HRAR,EpS,AN,BN,N,XMIN,XMAX,R,DENGAM) £0 

DIMENSION »PAR( 1 ) , «HAR( 1 ) , AN( 1 ) , tlN( 1 ) iO 

ROUTINE In PRINT PHI,UMV,CP at Nti LOCATIONS ALONG X FOR SPECIFIED <40 

TheTa so 

IF R = 0 TS INPUT, R IS CALCULATED AS TURRET SURFACE. t> 0 

IF R.GT.O IS INPUT, That R IS USED IN CALCULATIONS, 70 

IR = 0 BO 

IF (R.GT , O'. ) IR = 1 90 

NR I T£ THEIA,AMACH 100 

DXr(XMAX-y M TNl/FLOAT(N) 110 

X=XMIN-DX 120 

NP 1 SN+ 1 130 

DO 10 1=1. NPl 1 90 

X=X+OX 150 

IF(IR.EO.D) CALL RSURF (ABAR, BHAR, EPS, MAXK, MaXP, X, THETA , AL, THMAX, R) IbO 

Call P H 1 Uy (X, ThF.TA, R, amaCh* A L , ac l , Thmax, haxk > MAXP.NMAX, mmax, ABAH, 170 

1BBAR,EPS* an,BN»PHI,IJ,V) 1 BO 

CPs- 2 , *U-v*»2 190 

10 "RITE (o,3o)X,R,PHI,IJ,V,Cp 200 

C CRITICAL PRESSURE COEFFICIENT. 210 

C p ST aR = 2. *( 1 . ♦ .5* (OENGAM-1 . ) * AM ACH * AMACH )/f 0£//*/9M + /. ) 220 

EX1=DENGAm/(DENGAM-i , j 23 0 

CPSTAR=2., f cFSTARA*£Xl-l.)/(DENGAM*AMACH*AMACH) 290 

«RITE(b,«0)CRSTAH 250 

40 FORMAT ( /5x, 42HCRI TICAL PRESSURE COEFFICIENT ON SURFACE =,F10.5) 2t>0 

RETURN 270 

C 2B0 

20 FORMAT (//^/SX,22HFL0R FIELD FOR ThETa =,F7.3,SH DEGREES// 290 

* SX,22HMA(-h NUMBER =,F7,s//10X, 1HX, 300 

110X,ihR,9v,sHPHI,11X,ihU,11X,1HV, I OX, 2HCP) 310 

30 FORMAT (SX.bEl 1 ,4) 320 

End 330 
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SUBROUTINE |}0PL (X,R, THETA. EPSM,XM,PhI,GAMM*,HhO,Y,Z,PhIPP,U,V,CP, 10 

lA8AR,Bt)AR,*L.ACL,T HMAX, EPS, R INDEX, RB, E I A , AN,BN,MAXK,1AXP,NrtAX,MMAX 20 

Z.KTRAP.A.n.T.OtLOPL.TOENRT.DENGAf^Ai-ACH.OFNPTO.AKPRlH.OELPLA) JO 

Dimension abar(i).fiham(I),an(1),bn(1),t(1) <40 

C ROUTINE Tfi CALCULATE change in OPTICAL PaTH LEnGTh BY INTEGRATING 50 

C t HE INDEX of REFRACTION - 1.0 FROM 0.0 TO A ANO A TO 5, 60 

C BY G. N. V4NDERPLAATS NOV., 1076, 70 

c naval postgraduate school, monterey, calif. so 

C 90 

c INTEGRATE F°°M ZfcRO To a FOR CONSTANT P«tSSURE. DENSITY 100 

C Ratio = TnENRT, 110 

DELOPL=AKpriM» TDENRT.A 120 

OELPLAsDEi nPL 1 JO 

C KTRAP = NUMBER OF TraPEZOIOAL SOLUTIONS. HAX NO. OF INTERVAL 190 

C IS 2**(KTrap-1) 150 

N2=l 1 60 

00 JO K=1 .kTRaP 170 

IGOTO=0 100 

10 CALL TKAP ? m ( IGOTO, A, h, N2, RHO.RINDEX) 190 

IF (IGOTu'fO.O) GO TO 20 200 

C INDEX OF INFRACTION -i. 210 

Call REFInd (X,R, ThETa, EPSM,XM, Phi, Gamma, rho, y, Z , phipp, U, v , cp , abar 220 

1,BBAR,AL,*CL» thmax, EPS, RIN0EX,RB,ETA, an, 8N,maxk, maxp, nmax,mmax, DEN 2 JO 

2GAM, AMACh.OENRTO, AkPRim) 290 

GO To 10 250 

20 T(K)sRINDfx 2&0 

JO N2=2*N2 270 

c Romberg integration, 200 

Kl=l 290 

Call RMfilmT (T, KTRAP, Kl) JOO 

OELOPL=DE| nPL + T ( 1 ) J10 

RETURN J20 

END jjo 
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SUBROUTINE FCOEF(AL#ACL#THMAX,AN,fiN,MAXK,MAXP,NMAX,MMAX) 10 

COMMON /CmlHC?/ AMX ( 10 , 15) # 9MX ( 10, IS) , ANT ( 10 # 1 5) 20 

DIMENSION an(1),BN(1) so 

C ROUTINE To CALCULATE FOURIER COEFFICIENTS FOR EXPANSION OF 40 

POLYNOMIAL SURFACE in X and Theta, 50 

BY G 9 N, VANDFRPLAATS Mat, 1977 , oO 

n a val postgraduate school# monteRey# calif. 70 

coefficients on x. ao 

MAXKP1=MA*K+1 90 

DO 10 M=l t wHAX 100 

CALLFXTO*(M,MAXK,AL,ACl,AN,flN) no 

00 ^0 I=i t MAXKPl 120 

AMX ( I , M) = A N( I ) 130 

30 BMX(I , M ) s q n ( I ) 140 

10 CONTINUE 150 

C COEFFICIENTS on THETA, 160 

MAXPP1 sMAyp+l 170 

PI = 3.1415o?7 1 BO 

NMAXP1 =NM AX + 1 190 

DO 30 NPl-^NMAXPl 200 

N s N P 1 • 1 210 

Call FXTOk (N,MAXP, THMAX ,PI , AN,BN) 320 

DO 40 1=1 .MAXPP1 230 

40 ANT(I,NPl}sAN(I) 240 

30 CONTINUE 250 

NFTURN 260 

END 270 
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SUBROUTINE FXTOK SEPT. 77 

Subroutine fxtok (n,k,xi ,X2, an,bn) 10 

DIMENSION AM(l),dN(D 20 

ROUTINE T n CALCULATE The nth FOURIER COEFICIENTS FOR THE SO 

Expansion 0 f i, x, x**2, , . . x.»k, «o 

FORM of F CHIP I F R SERIES IS SO 

Y = Sum (AN(K+1 )«COS(NX) ♦ BN ( K* 1 ) .SIN (NX) ) , n s 0,1,2.. INF. 60 

BY G . N, vaNOERPLAaTS OCT. 22, 19 76 70 

Naval postg»aouaTE school, monterey, calif. bo 

VO 

INPUT, 100 

n - ofsirfo Fourier coeficient, no 

K - higeSt oRoER Exponent on x for which an and bn a«E Rtou I RED , 120 

XI - 1/2 ihteRVAl over "hICh *“k is expanded. ISO 

X2 - 1/2 spacing BETWEEN EXPANSIONS, ' 140 

OUTPUT. 150 

AN - VECTOR of A-COFF ICIENTS FOR FOURIER EXPANSION, THE loO 

THE COEFICIENT FOR X*.I IS STORED IN THE I + l LOCATION OF AN, 170 

FOR 1=0, I, 2, ... K. 180 

BN - VEC ToP OF H-COEF IC l£N TS FOR FOURIER EXPANSION, ThE 1V0 

COEFrciFNT FOR X,.I IS STORED IN THE I + 1 LOCATION OF 8N, 200 

FOR 1=0, 1 , 2, ... K. 210 

NOTE - although ONLY THE COEFICIENTS FOR X«*k MAY ME required, THE 220 

COEFICIENTS FOR EXPANSION UN 1, X, X»*2, . . X»*(K-|) ARE 230 

also prov tdE o since these are obtained as a consequence of evo 

CALCULATImg The REQUIRED INFORMATION, 250 

260 

CONSTANTS' 270 

PI=S, 1415627 260 

NMP 1 =K ♦ 1 290 

IF (N.GT.ft^ GO TO 20 300 

SPECIAL CASt’ N = 0, 310 

A ( N , k ) anA M(N,K) aP£ The FOURIER COEFICIENTS a-SUB-N and B-SUB-N 320 

ReSPfCT IV f .( Y FOP Thf EXPANSION X.,k, K = 0, 1, . . . 330 

A(0,K) s ,5*( X 1** (KAl ) ) * ( 1 ♦(-! ) *«K )/(X2* (K 1 1) ) 340 

B ( 0 , K ) = o 350 

SIGNs-1. 360 

C|s,5/X2 370 

DO 10 KPl -j ,KMP1 360 

Cl=Cl*Xl 390 

AN (KPl )=C?*(1, -SIGN) /FLOAT (KPl ) 40 0 

SIGNs-SIGn Rio 

10 BN(KPi)*o' 420 

RETURN * 4 iO 

GENERAL CASE' N.GT.O, 440 

A(N,K) = \ XI **K 1 * ( 1 ♦ (-1 ) **K ) *SIN(N*PI.X1 /X2) /( N*PI ) - 450 

f K.X2/ (N.PI ) ) »B (N,K-1 ) 460 

8(N,K) = fXl * *K ) » ( - 1 ♦(-! )**K)»C0S(N*PI*X1/X2 )/(NaPI) ♦ 470 

£K*X?/(N»PI ) ) .A (N,K-1 ) 460 

WHERE A(N,-)) = B ( N, • 1 ) = 0 490 

PI = S. 1415927 500 
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C SOLUTION BEGINS WITH k s o ANO USpS The ABOVE RECURSIUN FORMULAS 510 

C TO CALCULATE A(N,K) AnO B(N,K). S20 

C 530 

C CONSTANTS', 5R0 

20 ANPIsFLOAT(N) *PI 550 

ANPIX=ANP T „*1/X2 SoO 

SN1=STN(Ap>iptX)/anPI 570 

CSI=COS(Amptx)/anPI sao 

C K r o. 590 

an ( i ) = 2 . »sn i poo 

«N(1)=0. (,10 

IF (K.EO.O) RETURN 620 

C K = i, 2, . . K 630 

SIGNs- 1 , 6«0 

CC=X2/ANPj 650 

C 1 s 1 , 660 

DO 30 KNs^ >K MPl 670 

K sK N- | 6B0 

C 1 =C 1 * X 1 690 

C2=FL0AT(k).CC 700 

AN(KN)sCl i . +SIGN),S ni -c2*BN(K ) 710 

BN(KN)=Cl*fSlGN-l.)*CSl+C2*AN(K) 720 

30 SIGNs-SIGh 730 

'RETURN 7R0 

End 750 
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SlIBROIJT l Np FXYja (N, X , Y, Z, N£R ) 10 

DIMEM SION X(l),Y(l),Z(l),AA(<l,«) 20 

ROUTINE In CALCULATE THE COEFFICIENTS OF A POLYNOMIAL 30 

FUNCTION riF 2 IN X A, NO Y, <40 

BY G. N. yANOEHPLAATS MAY, 1977, SO 

NAVAL POStoPAOUa I t SCHOOL, monterft, CALIF, 60 

--INPUT, 70 

H - NUMBER OF INTERPOLATION POINTS (N s J OR U), BO 

X , Y - X Amo v COORDINATES, 1=1, N, 90 

z - z = Ffx.Y) = function values, 100 

z is destroyed. no 

--OUTPUT. 120 

2 - polynomial COEFFICIENTS. 130 

IF N = x. r = 7(1) + Z(2)*X ♦ 7 ( 3 ) * Y . 190 

IF N : (I, Y = Z(l) ♦ 2 ( 2 ) * X ♦ 7(33 * Y ♦ Z(9)*X*Y, 150 

ner . error Indicator, o = no error, ner.gt.o = error due to iso 

TWn x , Y POINTS aH e The SAMf OR Three X,y points are 170 

C0| inEaR, 1B0 

190 

DIMENSION of AA matrix AND number OF RHS VECTORS FOR EQUATIONS. 200 

nq I M: y 210 

NrhS=1 220 

C Insure n . j or u. 230 

IFIN.LT, 3) N=5 290 

1F(N,GT,9i N = 9 2S0 

C Set up COfFFIcIENT matrix FOR SIMULTANEOUS EQUATION SOLUTION. 280 

00 10 1=1 N 270 

AA(I,1)S1. 280 

AA(I.2)=X'fI) 290 

AA(I,S):Yfi) 300 

lO AA(I,U) = Xf I)«Y(n 310 

C SOLVE EQUATIONS. 320 

Call GELlM2(AA,Z,N,NRHS,NOlM,NDtM,N0lM,NRHS,NER) 330 

IF(N,e0.3) Z ( a 3 = 0 . 390 

RETURN 350 

End 3b0 
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SUBROUT I Np G£LI*2 (A,b,N,NLC,H| .mj.mj.mo.nER) 10 

DIMENSION a(M1,M2),B(MJ,M9),K(|0) 20 

C SOLUTION np SIMULTANEOUS EQUATIONS w ITH MULTIPLE CONSTANT VECTORS JO 

C By GAUSS fLlMTNA TION, USING PIVOT SEARCH, 90 

C BY G, N. va^OERPLAaTS, 9-2S-70 50 

C AsCOfcF, Matrix B = MA TR I X CONTAINING NLC CONSTANT VECTORS oO 

c NSNO. OF pOUATIONS Ml 4 N 0 m2 a R£ oI M ENSIONS aS GIVEN ABOVE 70 

C IF N£R=i on RETURN, a IS SINGULAR, SO 

NER=1 VO 

EPS=l,OE-?o 100 

C INITIALIZE k TO ZERO 110 

DO 10 1=1, n 120 

10 K ( I ) s o UO 

C BEGIN ELIMINATION loo 

DO Ro J=1 ,n , 150 

C FIND BEST PIVOT ROW loO 

AA=0. 170 

11=0 ISO 

DO 20 1 = 1 ,N 1 VO 

IF (K(I).NF.O) GO TO 20 200 

BB=ARS(A(t,J) ) 210 

IF (BB.LE'.AA) GO to 20 220 

A A =BB 230 

II=I 200 

20 CONTINUE 250 

IF (II. EO' o.UR.AA.LE.EPS) RETURN 2o0 

K(II)=J 270 

C PIVOT ON POSITION A ( T I , J ) 200 

C REDUCE A ( T I , J ) TU IDENTITY 290 

AA=l,/A(I t ,J) 300 

DO JO L=J,n 310 

30 A(iI,D = A f ii,L)*AA 320 

DO ao L=1 .nlC 330 

90 B(II,L)=8f H,U*AA 390 

C ELI*. COEp. Op J1H COL. FOR I.NE.TI 350 

L 1 = J+ 1 JoO 

DO 80 1=1 ,n 370 

IF ( I ,E0. t n GO TO 80 380 

BB=A ( I, J) 390 

IF (ABS(Bpj .LE.EPS) GO To 80 000 

if (li.gTn) go to bo aio 

00 50 L=Lj,N ' 920 

50 A(I, L );A(t,l).A(II,L)*BB 930 

60 CONTINUE 990 

DO 7 o L = 1 , NL C 950 

70 B(I,L)=B(t,1)-B(II,L)*BB 900 

80 CONTINUE 970 

90 CONTINUE 980 

C RE-ORDER VARIABLES TO ORIGINAL POSITION 990 

C T E MPqR A R 1 1 y STURE SOLN, MATRIX IN A 500 
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5 l 0 



oo too i = T . M 5 ^° 

00 too J=t,MLC 530 

c 100 STOWE 5 VALMF^BACK IN R in PROPER ORDER S50 

DO HO 1 = 1, N 5©0 

L=K(I) 570 

00 tlO J=j,NLC 580 

ItO B(L» J 1 = A ( 1 , J) 500 

N£R = 0 6 0 0 

RETURN 610 

ENO 
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SUBROUTINE iZeRN( IRB.RBI , IETa.ETai , neta, r,pd, a ) 10 

DIMENSION RRl ( 1 ) ,ETA1 ( 1 ) ,PD( n , A( 1 ) ,RI (0) , TI (U) ,POl (0) 20 

ROUTINE To CALCULATE ZERnICKE FUNCTIONS OF SECTION OF BEAM WITH 30 

FIRST NODe iRB. IETA. 00 

BY G. N. vamDFRPLAaTS MAY, 1 977 , SO 

naval postgrAouaie school, monterey, calif. so 

IF 1RB = T a Nq IETa = 1, This IF THE FIRST CALL TO IZERN. 70 

therefore zero out vector a, bo 

IF ( lRfi.GT^ i .OR, ILT A . G T , 1 ) GO TO 10 90 

DO 20 1=1*10 100 

20 A ( 1 ) so , 110 

10 CONTINUE 120 

C RADIAL COORDINATES. 130 

Rl ( 1 ) =0 . 1 <40 

IRBl=IRB-7 150 

1F(IRH.GT n RI ( 1 )=R8I ( IRB1 ) 160 

R I ( « ) =RI ( * ) 170 

«I (2)sRBI ( irB) 1 BO 

Rl(3)=RI(?) 190 

C ETA COORDINATES. 200 

T I ( 1 )=ETA T( iETA) 210 

Tl(2) = TI(n 220 

IET»isIETa*i 230 

TI (i)=ETAi ( i 1+6.2831 854 200 

IF(IETA.Lt.nETA) TI(3)sETAI(lETAl) 250 

TI(U)sTKi) 260 

c phase distortion. 27o 

N 1 = ( 1RB»2i«nETA+IETA 280 

N2 = N i > nE T » 290 

NJ=N? + l 300 

IF ( IETA .Eq.nETA) N3=N3-NETA 310 

N u s N 1 + 1 320 

I F < IETA.Eo.nETAI NO=NU-NfTA 330 

PDI(1)=0. 300 

IF(Nl.GT.n) PnKl)sPD(Nl) 350 

P0I(2)=PPfN?) 360 

PDI (3)=PDfN3) 37 0 

RD I ( o ) =0 . 380 

I F ( N i , GT . ii j PDI (O)sPD(NO) 390 

C CALCULATE INTERPOLATION COEFFICIENTS. 000 

N=0 010 

IF{ 1R8.EU'. i ) N=3 020 

CALL FXY3u (N.RI , TI , PDI ,N gR) 030 

C integration. 000 

RlsRl(l) 050 

T2=TI(2) 090 

K2sRI(2) 070 

T3sTl(3) 080 

AZsPDI(l) 090 

A 1 sPD 1(2) 500 



203 



SUBROUTINE rZERN 



SEPT, 77 



A2=POI(5) SIO 
*?=PDI(U) 520 
Call. 7EPNfR,Wi,R2,T2,TJ,AZ,Ai,A2,43,A) 530 
RETURN 540 
END 550 
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Subroutine phoist (x,r, Theta, epsm, xm, phi , gamma, rho, y, z,phipp, u, v,c 10 

1P,ABaR,BBaR,AL,ACL,THMAX,ERS,RINDEX,RB,ETA,AN,BN,MAXK,MAXP,NMAX,MM 20 

2AX,kTRAP,»,r, T, O tLUPL , iB£AM,REFi)PL , H A VE l * REUS , E T A I , R 6 1 * GAMM A I , PH H iO 

h NET* I , NRqt / TnENRT,PorSTl,OENGAB,AMACH,OENRTO»AKPRIM,lP«INT,lPLOn 40 

DIMENSION *RAR( 1 ) ,BRAR( 1 ) , AN( 1 ),BN( 1 ), I ( I ) ,ETAI ( t ) ,RdI( I) , GAMMA I u 50 

U*PHII(n.poISTI(n 60 

dimension ai(32)»*p(ioo),yp(ioo),zpuoo) 70 

ROUTINE Tn CALCULATE PHASE DISTORTION FOR THE IBEam TURRtT 60 

Orientation, 90 

BY G, N. VANDFRPLAATS NOV,, 197b 100 

naval post graduate school, monterey, calif. no 

REFDPL = REFERENCE delta Path length along center of beam. 120 

NEXTRA=3 150 

C beam ORIENTATION. 140 

PHISPHI I ( TOFAM) 150 

GAMMA=GAMma! ( TBE4M) 160 

A1=57.2957«*PHI 170 

A2=S7.29S7B*0amma 180 

IF(II»RINT'.GT,0) "PITE(b,90) IBEAM, A1 , A2, AMACH 190 

c calculate'rfference phase distortion, 200 

RB=0, 210 

E T A s 0 , 220 

C TURRET SUpfaCF INTERCEPT. 230 

call shfi^t ( xm, epsm, phi , gamma, a , rb, eta, x, r, theta, abar, bbar, eps,ma 240 

1XK,MAXP,A| ,THMAX) 250 

A I RE (• = A 2b 0 

c Reference change in path length due to distortion, 270 

Call dupl (X, r, the t a ,epSm, xm, phi , gamma , «ho, y , Z, phi pp, u, v, cp, a bar, b 260 

1bAR,Al»*C| ,ThmAX,EPS»RINo£X,Rh»ETA,AN,bN,MAxk»mAXP,NMAX,MMAX,kTRAP 290 

2«A,B,T,OE|'oPL,TOENRT,oENGAM,AMACH,OENRTO,AKPRIM.DELPLA) 300 

REFOPL=DE| nPL*RFUS/WAVEL 310 

A1=57.2957A*ETA 320 

A 2 = 0 , 330 

XP(1)=0. 340 

YP(1)=0. 350 

ZP(1)=0, 3b0 

I F ( IPRINT' gT.O) "RlTEfb, 100)R8, Ai , a2,A2,a, A? 370 

c change in'p a th length ode to distortion for specified values of 3bo 

C RB and ETa. 390 

C INCRIMENT rr. 400 

NN=0 410 

MM=1 420 

DO 60 IRB = i,NRBI 430 

RBsRBKIRr) 440 

c increment fta. 450 

Do 50 IETas 1 ,NETAI 460 

ETA It TA 1 ( IFT A ) 470 

c surface intercept. 4bo 

Call SRFInT (XM, EPSM, PHI, gamma, A, rb, ETa, X,R, THETA, abar, BBAR, EPS, MA 490 

1 XK , ha XP, A| , THMAX ) 500 
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C CHANGE IN pa Ih LENGTH DUfc- TO DISTORTION, 510 

CALL DOPL (X, R, THETA, EPSm, XM, PHI , gamma, RHO, Y, Z, PHIPP, U, V, CP, *8AH, 8 520 

1 8 a R, AL , A C| , THHAX, EPS, PI NoEX, R r,E r A, AN,(3 N,MAXK,mAXP,NMA*,MHAX,kTRAP 530 

2,A,0,T,OE| OPL, TOENRT,OENGAM, AMACH.DENRTO, AKPRIM, OELPLA) 590 

OPL = DELOP| ,pFuS/«AVEL 550 

nn=nn + i • 5o0 

MMsMM+1 570 

AI(NN)=A 580 

POISTI (NN,;f>PL-WEFOPL 590 

A 1 =5 7 , 2957 8 *E T A 600 

XX=R8*SlN f f tA) 610 

YY=HB.COSfETA) 620 

XP (HM) SXX 6 JO 

YP(MM)=YY 690 

ZP(MH) = POtsTI (NN) 650 

IF(IPRINT'. GT.O) "RITt(6,100)RB,Al,XX,YY,A,POISTI(NN) 66 0 

IF (IR0.Lt.nRbI) GO TO 90 670 

IF ( I E 1 A , r , T . 1 ) GO TO 10 660 

X|1=XP(MM, 690 

Y 1 l = YP(MM-j 700 

l)Pl lrPDISrt (NN) 710 

tTA l i=ETA; 6 .28Jtb5a 720 

GO TO UO 730 

C INTERPOLATE FOR MORE BOUNDARY POINTS, 790 

10 NCQUNTsO 750 

HH1 sMM+NEytRA 760 

XP(MH1 )sXp ( uM, 770 

YP(MM1 )sYp ( mHj 760 

ZP ( Hh 1 ) r Z p ( “M ) 790 

OETAs(EIA_etai )/(FL0aT (N fXTRA) + l , j 800 

OPO=POIST T (NN)-PDISTi 810 

DX = XP(MM) .jjj n 820 

OYsYP(MM). yI hi 830 

20 CONTINUE 890 

IF (ABS(OY).LT.I.OE-lO) nXsi.OE-lo 850 

IF (AHS(DV) ,LT. 1 .0E-10) 0Y=1.0E-l0 880 

00 30 INT-i ,N£XTRA 870 

ETA IsFTa l ioETA 880 

XXsRp*S I N f f TA 1 ) 890 

YYsRR»COS f pTA( ) 900 

XP(MM)=XX 910 

YP(MM)sYY 920 

ZP (MM) =POt ST 1 ♦0P0*( YY-Y I Hi )/OY 93 0 

30 MMsMh+1 990 

•NCOUNTsNCniINT ♦ l 950 

IF ( I E T A , | T , N £ T A I ) GU TO 90 9e0 

IF (NCOUNt.gT , 1 ) GO 10 90 970 

OE TA= (t TAj[ -ETA)/ (FLOAT (NEXTRA)+1.) 980 

POIST1 sPOtSTl (NN) 990 

0P0=0P1 1-POlSTt 1000 



SUBROUT INp PHOISI SEPT. 77 

E T A | s£ T A 1010 

XIMUXP(Mm) 1020 

YIMIsYP(Mm) 1030 

0X=X11-XImi 1000 

' DY = YJ I -YImi 1050 

hM=MP+l 1060 

GO TO 20 1070 

UO CONTINUE 1080 

ETA1=ETA 109(1 

PDIST 1 sPOtSTI (NN) lloO 

XIH1=XP(M M) 1110 

YIM1=YP(Mm) 1120 

50 CONTINUE 1 1 50 

60 CONTINUE 1100 

MMsMM-1 1150 

PHI=57.?9q7fl*PHI I ( IBEAM) lloO 

GAHMAr57.pq57rt*GAMMAl(IBEAH) 1170 

IF (IPLOT'.CT.O) call NAPs (HM, PHI , gamma , NETaI , NRBl , XP, TP, ZP) 1160 

IF (iPRINt.eO.O) RETURN 1190 

C CALCULATE zfRnICkE CUE FF I C I EN T S . 1200 

C VECTOR ZP IS USED TO STORE ZERNICKE COEFFICIENTS, A, 1210 

HBPAXrRBI ’( nPBT ) 1220 

00 62 I RB = i , NRB I 1230 

00 62 IET» r i , NETAI 1290 

62 CALL IZERn(TRb<RbI, IETa»E t AI,NE t AI/R9MAX,PDiSTi,ZP) 1250 

«RITE(6 ,ox) (ZP( I ) , 1 = 1 , 10) 1 2o0 

63 FORMAT (///5X,22hZERnIckE COEF F I C I FN T S //5 X , 9H A V£P a GE =,E13.5/5X, 1270 

* 9 HTILT, X s , E I 3 , 5 , 10 x,3hy = , E l 5 . 5/5X , 9 h FoCUS =,F13.5/5x, 1280 

* 9HASTIG =,2t!3.5/5x,9HC0MA s,4El3.5) 1290 

RETURN 1300 

C 1310 

90 -FORMAT ( / // 5 X , 29hPhaS£ DISTORTION CALCULATI0NS//5X,25Hb£AM ORIENTA 1320 

1 T I ON NUMBpR =, I5/SX , 25hAZMUTh angle =,f10,2,«h DEGREES/ 1330 

* 5X, 25HELpv a T ION ANGLE =,Fl0.2,flH DEGREFS/5X, 1 3«0 

* 1 1HMACH NiimrER, 1 3X, lh=,F]0,2/l OX, triR,9X, 3HETA,8X, 1 HX, 1 ix, 1HY, 1 IX, 1 550 

»lHA, 1 1 X, 1 h n) 1 ioO 

100 FORMAT (5x,E10.«p2X,F7.2,6E12,4) 1370 

End 1 580 
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SUBROUTINE pH I U V SEPT, 77 

SUBROUTINE phiUV (x, The Ta, R, amaCh, al, aCL , ThmaX, maxk , maxP, nmax, mmax 10 

l,ABA«,BBAo.EPS,AN,HN,PHl,U,V) 20 

DIMENSION ARAR( 1 ) , B0AR( 1 ) , ANU ) ,BN( 1 ) 30 

ROUTINE To CALCULATE potential FUNCTION, phi, and PERTURBATION uo 

velocities u ano v. bo 

by G, N. vanOEHPLAATS OCT,, 1976 60 

naval POSTGRADUATE SCHOOL, MONTERFY, calif, 70 

60 

constants’. ro 

De L l = t , OE la loo 

DEL2sl,0E.a 110 

BETArl ,-AmaC h **2 130 

BETA;a8S(reTA) 130 

BETAsSQRTfneTA) 190 

Pt=3,19lSo?7 ISO 

BPIL=8ETA.pt/ACL 160 

8PIRL = HPI| , R 1 70 

NM A X J sNM A y . i 160 

C INITIALIZE PHI, U AND V, 190 

PHI=0. 200 

U=0, 210 

V=0. 220 

C CALCULATE POTENTIAL and VELOCITIES, 230 

C M - LOOP. 290 

DO 90 ms 1 ,mmAx 2S0 

AM=FlOAT(m) 260 

AMPILSAM*RP1L 270 

AMPlRLrAH»flOlRL 280 

IF (AMACH’.GT, 1 . ) GO TO lo 290 

C SUBSONIC. 300 

C K-BESSEL FUNCTIONS FOR Ns- 1 AND NsO, 310 

Ns 1 320 

Call BESK ( ampirl,n,bkrn, IER) 330 

Call BESK (AMPIL,N,BKN, l£R) 3ao 

NSO 3S0 

call resk ( ampirl,n,bkrnpi , ieri 3bo 

Call BESK <aHPIL#N,8KNP1, IER) 370 

GO TO 20 380 

10 CONTINUE 390 

c supersonic. ooo 

C J-BESSEL FUNCTIONS FOR N = -l ANO N = 0, 910 

PRECIS*. Oooi 920 

Ns 1 950 

Call BESJ'f amPTRL,N,RJBN, PRECIS, IER) 990 

call besj r ampil, n, bjn, precis, ierj «so 

BJHNs-BJRn 9 o 0 

BJNS-BJN 970 

NsO 960 - 

Call BESJ'f amPIRL,N,8JRNPi , PRECIS, IER) 990 

Call BESJf a«PIL,N,BJNP 1 ,pRtCIS, IER) 500 
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C Y-BESSEL FUNCTIONS FOR Ns*i AND NsO, 510 

Nr 1 S20 

Call BE$Y' f a mPTRL,N,BYRN, IEK) 530 

CALL BESY' f amPIL,N,BYN, IER) 54o 

BYRNs-BYRni 550 

BYNs-BYN 560 

Nr o 570 

Call BESY'f a mP T RL,N,RYRNPi , IE«) 560 

Call BESY'f a mPIL,N,BYNPi , IER) 590 

20 CONTINUE 600 

C N • LOOP. diO 

00 30 NPl = i,NMAXl 620 

N 2 n P i • i 630 

lF(AMACH.n T# l # ) GO TU 25 640 

C SUBSONIC. 650 

BKNMisBKN 660 

BKRNM1=BKpm 670 

BKNSBKNP1 660 

BKRNsBKRNp \ 690 

C N>1 BESSEi FUNCTIONS BY RECURSION, 700 

BKNPls2.*FL0AT(N)*BKN/AMPXL*riKNMl 710 

BKRNPi = 2,^FL0AT(N)*BKRN/AHPlRLtBKPNMl 720 

GO TO 27 730 

25 CONTINUE 740 

C SUPEPSONIr. 750 

BYNMlsBYN 760 

BYRNMlrBYpN 770 

BYNrBYNPl 780 

BYRN=BYRN P1 790 

BJNMisBJN 800 

BjRNMlrRJ RN 810 

BJNSBJNP1 620 

BJRN=BJRN P1 830 

C N+ i BESSEi' FUNCTIONS BY RECURSION, 840 

BY NPls2, AFLOAT (N)*BYN/AMPIL-BYNM1 Q50 

BYRNPi =2, * FLOAT fN) *RYRN/ aHPIRL-BYRNMi 860 

BjnP1=2.* f i_oAT(n) *BJN/AHpil-BJNM1 87 0 

BJRNP122,*fi0aT (N) *BJRN/a m PIWL-BJRNMi 880 

27 CONTINUE 890 

C N,M COMPO^fnT OF Phi, u and V, 900 

Call PhUVkjm (N,M,X,THFTA,AHACH,AL,ACL,THMAX,BKNM1,9KNP1,BKRNH1,HkR 910 

1n,bkrnpi,m a xk,h a xp, a b a h, r raR,eps, a n,bn,phinm,unm,vnm, 920 

* RJNmi,RJm # rJNP1,BJRNhi,bJHN,BJRNP1 # BYNMi,bYN,bYNP1,8YRNM1, 930 

* 0YRN,BYKkjpi j 940 

c UPDATF PH T# u ANO V, 950 

PHISPHI ♦PhINM 960 

U=u+UNM 970 

V 2 V ♦ V NM 980 

C CHECK CONvFRGENCE. 990 

IFCN.eQ.O^ gO TO 30 . 1000 
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lF(A8S(PHiNM) .LT.0EL1 ,ANO, ( A9 S ( Unm ) , L T . DEL 1 . A NO . ARS ( VNM ) , L T , DEL 1 ) ) 1010 

* CO TO 35 1020 

30 CONTINUE • 1030 

35 CONTINUE 10«0 

IF(H.EO.l) go TO 36 1050 

OPHI=ABS(PHl-PHI A) 1060 

DU=ABS(U-|IA) 1070 

OVsABS(V-vA) 1080 

1F(OPHI.Lt.oEL2.ANo, (OU, UT.OEL2, ANO.OV.LT. DEL2) ) GO TO «5 1090 

36 PHIAsPHl ’ 1100 

Ua sU 1110 

VA=V 1120 

<10 CONTINUE 1 130 

«5 CONTINUE 1 1 U 0 

RETURN 1150 

ENO 1160 
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SUBROUTINE PHUVNM 
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SUBROUTINE PHUVNM (N , M , X, THETA, AM aCH , AL * ACL# THmaX,6KNM1 , BKNP 1 # BKRN 10 

1M1,BkRN,BkRNP1,MAXK,MaXP,ABaR,6BAR,EPS,AN,BN,PhINM,UNM,VNM, 2 0 

* BJNMI,BJn,RJnP1,BJRNM1,0JRN,HJRNP1,BYNM1 # HyN,0YNP1,BYRNm1, AO 

* BYRN, BYRmPI ) 40 

COMMON /Cm L 0C2/AMX( 1 0, 15) ,BMX (10,15), AN T ( 10, 15) 50 

DIMENSION aBAR(1),BBAR(1),AN(1),UN(1) SO 

Routine T n calculate n,* components of potential, phinm, and 70 

perturbation velocities unm and vnm for a turret defined by a bo 

double polynomial. 90 

BY G # N. VANDERPLAATS 0CT t , 1976 100 

naval postgraduate school, monterfy, calif, no 

input 120 

N,M - SUBSCRIPTS on phi, U and v # 1 A 0 

X • LONGITUOINAL COOROINaTE along turret. iao 

theta - circumferential coordinate around turret, iso 

BETA - ARS( 1 ,-AMACH**2) ISO 

AL,ACL - 1/2 LENGTH OF TURRET AND 1/2 PERIOD BETWEEN TURRETS. 170 

THMAX - 1/2 CIRCUMFERENCE of FUSELAGE OCCUPIED by TURRET. ISO 

BKNMi, RKnPI - K BESSEL FUNCTIONS AT N-l AND N+l, 190 

BKRNM1, BkRN, BKHNP i . K BESSEL FUNCTIONS OF R AT N-l, N ANO Ntl, 200 

MaXK, m a X p - MAX EXPONENT OF X AND THETa POLYNOMIALS. 210 

A0AR, BBAp - X AND THETA POLYNOMIAL CHEFIC1ENTS. 220 

AN, BN - DUMMY STORAGE DIMENSIONED MAX ( MA XK * 1 , MA xPf 1 ) 230 

OUTPUT 240 

Phinm - perturbation potential. 250 

unm - u perturbation velocity. 2po 

VNM - v PERTURBATION VELOCITY. 270 

2 BO 

CONSTANTS'^ 290 

PI=3,1U15o?7 300 

AMPL = FLOA T ( m) * PI/ ACL 310 

BETA=AHS(t.-AMACH**2) 320 

BETA=SQRT(rfTa) 330 

bmpl=ret a* A mPl 3ao 

SMr A MPL * X 350 

CMsCOS(SMj 360 

SmsS I N ( SM ^ 370 

SNsFLOAT ( m) #THETA 3B0 

CNrCDScSN^ 390 

MAXKPl sMAyk+1 400 

M AXPP 1 =M A yp ♦ 1 410 

C CALCULATE a-BaR TIMES A-SUB-M AND A-BAR TIMES B-SUB-M. 420 

AAM=0. 430 

a r m s o . aao 

DO 10 1=1 .MAXKPl 450 

AAM*AAM4Ara«(I)#AMX(I,M) 460 

10 ABM=ABM+A RA R ( I) *HMX ( I , M ) 470 

C CALCULATE b-BaR TIMES A-SUB-N, 460 

B A N = 0 , 490 

B0N = Q , 500 
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NP 1 -N ♦ 1 


510 




DO 20 1=1 .MAXPP1 


520 


20 


BAN3BANtBR A R(I)*ANT(I,NPl) 


530 


C 


CALCULATE f-SUB-N of theta. 


5oo 




FNsBAN*CN 


550 




lF(AMACH #r ,T # l . ) GO TO 30 


5o0 


c 


SUBSONIC, 


570 


c 


CALCULATE PHlNM, 


560 




ClrA aM*SM. a rm*CM 


590 




C2=BETa* (rknPi ♦WKNHl ) 


600 




C3=2. *EPS*FN*RKRN 


610 




PHINMsC3*ri /C2 


620 


c 


calculate unm. 


6 i 0 




UNH = C3*AMp(_*(AAM*CM4-ABH*SM)/C2 


6ao 


c 


calculate vn*. 


650 




VNM=-AMPL # pPS*FN*(dKRNPl t BKRNMl)*ci/(BKNPltBKNH|) 


660 




RETURN 


670 


30 


CONTINUE 


660 


C 


SUPERSONlr. 


690 




ANHsy YNP UpyNM UbJNPl - BJNM1 


700 




BNMsrynPI .ryNHI - bJNPl ♦BJ nMI 


710 




APB = ANM4>R*jm 


720 




AHB=ANM-Hmm 


730 




A!32sanm**? + rNm**2 


7a 0 




A \ =APM*SH.AMd*CM 


750 




A2=AM0*SH; aP0*CM 


7o0 




a3=aa^*RYpn+arh^bJwn 


770 




AarAAM*BJoN-AHM*BYRN 


760 




AS=2.*EPS*fn/(AB2*BETa) 


790 


C 


phinm. 


600 




PHINH=AS* f Al*A3+A2*A4) 


810 


C 


UNM # 


620 




UNHSA5*AMp L ^( A2*A3-A 1 *AR) 


030 


C 


VNM 


aao 




VNMs.EPS*FN^AMPL*((Al*AAH-A2*ABH)* ( BYRNPl-BYRNMl) t 


050 




SUl*ABMfAp*AAM)*(BjRNPl.RjRNMl))/AB2 


060 




RETURN 


070 




End 


000 
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SUB»OUTIN F rEFIND SEPT. 77 

subroutine ref i no (x,r,theta,epsm,xm,phi,gamma,rho,y,z,phipp,u,v,c 10 

1P,A0AR,BUaR,AL,ACL,THMAX,EPS,RINOEX,RB,ETA, AN, 0N , MAXK , M AXP , NMAX , MM 20 

2AX,0EMGAM,AM A CH,0ENRTn,AKPRIH) JO 

DIMENSION aB*R( 1 ) , BBAR ( 1 ) , AN( 1 ) , bN( 1 ) 90 

routine t 0 calculate index of refraction .1 for a specified point so 

ON A BEAM' oO 

BY G. N. 0anO£RPLAATS NOV., 1976. 70 

naval postgraduate school, monterft, calif. ao 

GIVIN aZMiith, ELEVATION aNO OISTanCE along BEAM, CALCULATE 90 

X, THETA iND R-COOR01 naTeS. 100 

Call XRTPdh (XM,ePSH, phi , gamma , Rho,RB,ETa, X, R, theta, t ,Z) 110 

C CALCULATE POTENTIAL and PERTURBATION VELOCITIES. 120 

CALL PHIUv ( X , THET A , R, AMaCH, AL, ACL , ThMAX, MAXK, MAXP , UMAX , MMAX , ABAR, 130 

1B8AR, EPS, AN,BN,PHIPP,U, V) 190 

c index of refraction. iso 

CP=-?,*U“v*V IpO 

Cl=l.+,5*nEN^AM*AMACH«AMACH*CP 170 

RINDEX=AKpPlM*DENRTO/(Cl**OENGAH) 100 

RETURN 190 

END 200 
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SUBROUT I Np RMB 1 N r SEPT, 77 

subroutine rmrint (T,k,kd 10 

DIMENSION T(l) 20 

ROUTINE To PERFORM POmbERG INTEGRATION. 30 

BY G. N. VANOf RPLM T S NOV,, 10 76 40 

NaVAU POSTGRADUATE SCHOOL, MONTEREY, CALIF. 50 

60 

INPUT 70 

t s vector containing results of trapezoidal rule integration. eo 

IF Tft) CONTAINS trap, rule RESULTS FOR N INTERVALS, T( 2 ) 90 

contains results for ^n intervals, tij) contains results for 100 

un intf r vals and t c I ) contains results for (2**(i-i))n no 

INTERVALS. 120 

K = NUMBfb of TRAPEZOIDAL RULE RFSULTS CONTAINED IN T. 130 

ki = k on last call to rmbint , first time rmbint is called ki = i. iuo 

OUTPUT. 150 

T = VECTOR containing Last row of POmbFRG table in re verse ORDER, loO 

The HIohfST ORolR approximation To the INTeg R a L is in T(l). 170 

1(2) GtVFS the 2ND HIGHEST ORDER APPROXIMATION SO The 1 BO 

DIFFERfnCE BETWEEN T(l) and t(?) IS an ACCURACY ESTIMATION. 1 NO 

T(K) Is the HIGHEST ORDER trap. RULE approximation AN 0 IS not 200 

DESTROYED. 210 

NOTES 220 

1) TF ACCURACY is NOT SATISFACTORY, THE NUMBER OF TRAP RULE 230 

STATIONS Can bE DOUBLED AND A NEw SOLUTION STORED IN ml OF I. 200 

Then S f t ki=k and K=*tl and Call rmbint again for vt» SOLUTION. 250 

c 2) all INittal ENTKltS Of T UP to K-l are DESTROYED. 260 

C REFtRENCE, Conte, ELEMENTARY numerical analysis, MCGRAW-HILL, 270 

c 1965, PP T26-133. 2B0 

IF (K.LE.T) RETURN 290 

KIPIsKIM 300 

c UUILO ROW K K OF ROMBERG TABLE. 510 

00 10 KK=kjP1,K 320 

K M I r K K - I 330 

Asl. JUO 

I=KK 350 

c Put ROW H* IN T(I),I=1,K« in REVERSE ORDER. T(KK) DOES not CHANGE. 3oO 

DO 10 I I = t , k m 1 510 

1=1-1 380 

A=u.*A 390 

10 l(I) = (A*Tf It l)-T(I) )/(A-l ,) uoo 

RETURN U10 

ENO U20 
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SUBROUTINp rSuRF SEPT, 77 

SUfcjROUT I Nf rSURF ( AGAR, GBaR,EPS,MaXK, MAXP, X, TH£TA, AL» THMaX, R) 10 

DIMENSION aF)AR(1),bbar<1) 20 

c routine To calculate the non-dimensional turret Radius at jo 

C X AND THETA. 40 

C BY G, N, VANOERPLAATS NOV., 1976, 50 

c naval postgraduate school, montere*, calif. bo 

C SPECIAL Case - THETA or x NOT on TURRET, point is ON CYLINDRICAL 70 

c fuselage. bo 

R=l. 90 

IF (ABS(THETA).GE.THMAX.OR.ABS(X) f GE.AL) RETURN 100 

C CONSTANTS'. 110 

MAXKP1 =MAyk+1 120 

HAXPP 1 =MA ypa 1 130 

c point on turret. 140 

C EVALUATE F(X) 150 

FX=ABAR ( 1 T 160 

IF (MAXK.fO.O) GO TO 20 170 

XI=1. 180 

DO 10 IXs?,MAXKPl 190 

X I s X I * X 200 

IF(ABS(XI).lT,1,0E-20) GO TO 20 210 

10 FX=Fx+A6Ap(iX)»XI 220 

20 CONTINUE 230 

C EVALUATE F(THETA) 240 

FTH=B0AR(7) 250 

IF (MAXP.FO.0l GO TO 40 260 

THI=1. 270 

DO 30 ITH = a,M A XPPl 260 

ThIsTHI*ThetA 290 

IF(ABS(TH T) .LT,1.0E-2O) GO TO 40 JOO • 

Jo FTH=FTH + HraP( ITH) *THI J 1 0 

40 CONTINUE J20 

C R=1 .0 ♦ Ffxl*F(THETA).EPS 330 

R= 1 , a FX*F th *EPS 340 

RETURN 350 

End 360 
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SUBROUTINE SLOPE (MAXK , AhAR, AL, SLOPEX, NVaL, AMUlTS) 10 

DIMENSION 4BAR( 1 ), Sl.OPEX ( 1 ) 20 

c ' Routine in calculate slope of a polynomial at nval points so 

C BETWEEN X - -aL ANO X r aL. 40 

IF (NVAL. |T. 2) RF T URN 50 

OX=2..AL/fFLOAT(NVALJ-l.) t. 0 

Xr.Al_.DX 70 

MAXKlrMAXKtl «0 

00 JO 1 = 1, NVAL NO 

XrX+DX 100 

SLOPEX(I) =0 . 110 

IF (MAXK. I T. 1 ) GO TO JO 120 

SLOPE X(I)-aBAR(?) 150 

IF (MAXK. fQ. 1 ) GO TO 20 140 

AMULTrl. 150 

X I r 1 , 150 

DO 1 0 J=3,mAXk 1 170 

x i = x i * x lao 

AMULTsAMUiT* 1 . 190 

io slope x ( i > = sLOPt x ( i ) + amult* abar ( j) ,xi 200 

20 SL0PEX(I)-aMULTS*SLOPEX(I) 210 

JO CONTINUE 220 

RETURN 2 JO 

Eno 240 
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SUBROUTINp s«FINT sept. 77 

SUBROUT TNf SRFINT ( XM,EPSM*PHI , GAMMA , A , R B # E T A , X # R , THE T A , ABAR,BbAR, 
1 EPS,MAXK,mAXP,AL,THMAX) 

DIMENSION ABAR( 1 ) ,6HAR( 1 ) 

c Routine T n calculate distance along beam from mirror to turret 
c surface. 

C By G. N. vanDFRPLAATS NOV,, 197b 

C NAVAL POST GRADUATE SCHOOL, MONTEREY, CALIF, 

c OUTPUT. 

C As DISTANCE from mirror to TURRET surface. 

c IF A = . l , OE -6 On return, MORHOR SURFACE IS OUTSIDE TURRET 

c surface'. 

C IF A : J.0E-b UN RETURN, NO INTERCEPT COULD BE FOUND AT A LESS 

c than 10 / t H I s prub a bLy Results from unrealistic turret shape, 

c METHOD. 

c for various values of rho, calculate x, rr and theta for a point 

c ON The R^AM, FOR EACH X and THpTA, c A LcULATp RS FOR RADIUS TO 

c the SUR Fa cE. INTERPOLATE to GET RRrR S , THE CORRESPONDING VALUE 

C OF RHO is A . 

drho= 

c Radius of be am pay aT point on mirror surface. 

RHOsO . 

Also, 

RR1 stPSM 

' X s X M 

THETasO. 

IF (RR.GT' # i ,0E-<*) CALL XRTPOB ( X M , EP SM , PH I , G A MM A , RHO , Rb , E T A , X , RR 1 , 
IThETa, Y,Z) 

c surface Radius of point at x and theta, for rho=o. 

Call RSURf ( ARaR,BBaR, EPS, MAXK,MAXP,X, theta, AL,THMAX,RS l) 

DR l srs 1 -Rr i 
As-1 , OE-b 

C IF ORt.LT^o, BASE OF mjRror IS OUTSIDE TURRFT, 

IF (DR1 . L T , 0 . ) RETURN 

C PICK aRBItraRY NER Rho and INTERPOLATE. 

10 Rho=rho+dpho 

c Radius of point on ream. 

call XRTPor ( XM f EPSM, phi , gamma, «MO, RH,ETa, x, RP2 , ThET a, Y , 2) 

C TURRET SUpfaCF. 

CALL RSURf ( AUA», bbAR, EPS, MAXK, MAXP,X, THETA, AL, THMAX,RS2) 

DR2sRSP-Rp2 

DORsDRa-Dpi 

IF (AHS(DnP).LT,1.0F-10) DDR=1,0E-10 
■ ArA 1 -DRHO*OR 1 /DDR 

IF (A,LE.PHO.nR,RHO,GT,10 # ) GO TO 20 
C A IS E*TR A pnLAlEU POINT. UPDATE AND interpolate AGAIN. 

HR1 =RP2 
RS1=RS2 
DR1S0R2 
A 1 sRHO 
GO TO 10 



10 

20 

30 

ao 

50 

PO 

, 70 
60 
90 
10 0 
1 1 0 
120 
1 30 

1 U 0 
150 
1 60 
170 
lbO 
190 
200 
210 
220 
230 
2u0 

250 

2b0 

2/0 

260 

290 

300 

310 

320 

330 

3ao 

350 

3b0 

370 

3 6 0 
390 
400 
410 
420 
430 
440 
450 

4 b 0 
470 
460 
490 
500 
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CONTINUE 


SIO 


IF CA.LT.ft.) Asl.OE-b 


5<iO 


RETURN 


550 


END 


5*4 0 
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SUBROUTINf SURPRT SEPT, 77 

SUBKOUTINf SUrPRT U8aR,B0AR,MaXk,MAXP,EP$,aL*THMaX) 10 

DIMENSION ABAR ( 1 ) , BBAR ( 1 } 2 0 

ROUTINE To PRINT SURFACE FUNCTION ORDINATES FOR POLYNOMIAL TURRET, 50 

BY G, N. VANOERPLAATS NOV., 197b, 40 

NAVAL POSTGRADUATE SCHOOL, MONIERgY, CALIF, SO 

INPUT. b0 

abaR = vec t o r of polynomial CUEFICIENTS IN X. DIRECTION, a 0 a R 7 0 

MUST bE DI m ENSU)NED at LE a ST hAxkM in calling ROUTINE, bO 

8 B A R = VECTOR of POLYNOMIAL COEF1CIENTS IN T HE T A -D I R tC T I ON . 90 

B B A R M US T BE DIMENSIONED AT LEAST MAXp+j [N CALLING 100 

ROUTINE. 110 

MAXK = ORDER OF x. POLYNOMIAL. 120 

M A X P = ORDER OF THETA-POLYNOMI A( , 150 

EPS = SCALAR SUhFACE MULTIPLIER, SURFACE = E PS * F ( X ) * F (THETA) , 140 

AL = \/? TURRET LENGTH, 150 

T MM A X = t/2 TURRET ANGLE, lbO 

OUTPUT. 170 

c polynomia, function couRdinates in terms of x at theta = o and lbu 

C THETA AT X : o, 190 

MAXKi=MAXk *1 200 

Ma XP 1 rMAXp + \ 210 

WRITE (6,701 EPS 220 

WRITE (6 ,ro) ( ABAR ( I ) , 1 = l , MAXK i ) 250 

WRITE (6,oo) 240 

WRITE ( 6 , b o ) (BBAR( I) , 1 = 1 ,MAXP1 ) 250 

C X-DIRECTIon. 2b0 

WRITE (6,ioD) 270 

DX=,1*AL 2b0 

X=- 1 . 2* AL 290 

DO 50 1=1.25 500 

X=X*DX 510 

ZsABAR(l) 520 

AHULTrO. 5^0 

ZPRlM=0, 540 

IF (HAXK.fq.O) GO TO 20 550 

X I r 1 , 5b0 

DO 10 J=2 . MAXK 1 570 

AMULT = AMU| T4.I, 5b 0 

ZPRlMrZPRTM+AMULT*ABAR(J)*XI 590 

XI=XI*X 400 

10 Z=Z*A8AR(j)*XI 410 

20 CONTINUE 420 

Z=EPS*BBAp ( i ) *Z 430 

ZPR I Mat PS * braR( 1) *ZPR IM 4 40 

IF (I.EO.r.OW. I .E0.23) ZsO. 450 

IF (I.EQ.t . OR. I. EG. 23) ZPRIMsO. 460 

WRITE (6, no) X,Z,ZPNIM 470 

30 CONTINUE 4 b 0 

C The T a.OIRfcT Ion, 490 

WRITE (6,*?0) 500 
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DTH=, 1 »TH MA x 510 

Th=-1 ,2.T H max 520 

00 60 1=1,23 530 

THsTH+OTH 540 

Z=88AR(1) 550 

IF (HAXP.fo.O) GO TO so 560 

THI=1. 570 

amuL T = 0 , 580 

Z PR IMsO, 590 

DO 40 J=2,mA*P1 600 

AMULTsAMU, t ♦ 1 , 010 

2PRlM = ZPR TH *AMULr*BRAR(J)*THl 020 

TH1=1HI«Th 630 

ao 2 = Z + BBAR(,J) ,THI o40 

50 CONTINUE o5 0 

Z = E PS * AB Ap f i ) « Z ooo 

ZPRlM=tPS,A8AR( 1 ) *ZPRIM 670 

IF (1 .£0. t .OR. 1 .tO.23) Z = 0. 080 

1 F (I. EO.t.nR. I. EQ. 23) ZpRImzO, 690 

THR = TH*57'. Z9578 700 

*Rl!t ( 6 , t i 0) TH, THR, Z, ZPRIm 710 

60 CONTINUE 720 

RETURN 730 

C 700 

70 FORMAT (///5*, IBHSURFACE OEF I N I T I ON , 5 X , OH ( EPS = , F 7 . 3 , 1 H ) /5 X , 54HPQL 7S0 

lTNOMliL CoFFiCiEnTS (A ( I ) « 1=0,MAXK) IN X-DjRECTiQN) 7j0 

80 FORMAT (5x,SEl2.5) 770 

90 Format (/ s x,58HP0LirN0MiAL COEFICIF^TS (B(l), I=0,MAXP) IN THETA-OI 780 

IRECTION) 790 

100 FORMAT (/sx, 1 1HC00R01NA 1 ES/flX, irtX , l 1 X, 1HZ, 9X, 7HZ-PRIME) 800 

110 FORMAT (5y, p-7, 3, 5X, f 8.R. 5X,F8,4t, 5 x,F8,U) 810 

120 FORMAT (/{ jX, ShTmETa/sx , 7HRaU I ANS , oX , 7HI)tGRf ES, 8 X , ihZ, 9X , 7HZ-PR IME 820 

1 ) 830 

End 840 



220 



subroutine tinput sept. 77 

subroutine tinput 10 

20 

Input card format 30 

40 

TITlE(I) , I=j # 20 F0RMATC20A4) bO 

ANYTH T ng may be TYPED in cut, 2-60 o 0 

70 

AERODYNAMICS . UPTICS 60 

AMACH, OENRTn, TDENRT,DENGAM, AKPRIM, w A VEL FORMAT (8F 10) 9 0 

AMACH = FREtSTWEAM MACH NUMBFR 100 

DENRTo = FLIGHT DfNSlTY/SEA LEVEL DENSITY 110 

Tnt'NR T = DENSITY INSIDE TURRfcT/SEA LEVEL DENSITY 120 

DENGAm = EXPUNENT UN PRESSURE-DENSITY RELATIONSHIP 130 

AKPRIm = tnoex of hefwactiun constant , 1 4 0 

RAVEL = BEAM WAVELENGTH lbO 

1 1> 0 

GEOMETRY 170 

TURRET 180 

REUS # AL,THMix,ACL,EPS FORMAT (8F 10) 1<*0 

RF US = FUSELAGE RADIUS 20 0 

AL = TURRET NDN-D I MENS I On aL HALF LENGTH 210 

THMAX - TURRET HALF ANGLE (RaD) 22 0 

ACL r HALF TURRET SPACING 2 30 

eps 2 turret height multiplier 240 

MAXk,MaXP,Ns HC ,nTH6C FORMAT (81 10) £50 

MAXK 2 ORDER OF X-POLYNOMlAL SHAPE FUNCTION 2o0 

M A X P 2 ORDER OF TH^Ta- POLYNOMIAL 270 

NX BC = NUMBER OF SETS OF 1 a NO Y-PRIME BOUNDARY 280 

CONDITIONS in X-QIREcMON, EXTERNALLY IMPUSEO. 2R0 

NTHBC s NUMbER OF SETS UF Y a ND Y-PRIME BOUNDARY 300 

CONDITIONS IN THETa-dIRECTION, EXTERNALLY IMPOSED. 310 

NOTE. AT X = TH£TAsOf Y=EPS IS All TOM A T y c AL L Y IMPOSED. 320 

ABAR(I),I=l e MA XKM FORMAT (6F 10 ) 330 

ABAR( T) s 1-1 COEFICIENT OF X. POLYNOMIAL 34 0 

YYPX8C(I,J), J= 1 , 3 NXPC CARDS FURMaT( 8F10) 3bO 

YYPXH C (TfJ) r X, Y AND Y-PRIME BOUNDARY CONDITIONS IN THE 3oO 

X-DIRECTIDN. 370 

BBAR ( I ) , l = 1 , M A XP+ t FORMAT (8F 10) 380 

B 8 A R ( y ) s I-l COEFICIENT OF ThETa-POLYNOMIaL 390 

YYPTBCCT, J) # J=t,3 NTHBC CARDS FORMAT ( 8 F 10) 400 

YYPTbr(l'J) = x, Y AND y-primf boundary CONDITIONS in r HE 410 

THETA-DIRECTION, 420 

430 

MIRROR CENTER 440 

EPSm, Xm FORMAT ( 8 F 1 0 ) 4 b 0 

EPSM . 7 -lOCATION OF CENTER OF MQPROR 460 

XM - X-LOCATION OF CENIER OF MIRROR 470 

480 

PHASE DISTORTION CALCULATION POINTS 490 

N£lAl,NR8I fORMA T ( 8 1 1 0 ) 500 
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ne r * i - number of eta angles s i o 

nrs i s number of radius points 520 

* eta t ( I X, Is t , net A I FORMAT(BFIO) S50 

E T A I ( T ) S angle (DEGREES) 390 

* RBI ( I ) , Is 1 , nRP 1 FORMAT(SFIO) 550 

RB I C I 1 s RADIUS SoO 

S/0 

beam oR l E nt A- f t on SDO 

* NBEaM FORMAT (8110) 390 

NBEAM - NUMBER OF DIFFERENT beam ORIENTATIONS ANALUED 600 

* pHI I ( 1 ) ,GaMm*I ( I ) , AMACHI ( I ) , wGmt I ( I ) NBEaM CARDS FoRMATtallO) 610 

PH 1 I ( I ) S AZMUTH angle (DEGREES) o29 

Gamma y ( T ) : ELEVATION ANGLE (DEGREES) oiO 

AMACHt ( I ) S hACH NU m bER. DEFAULT = AMACH. 6MO 

wf.HTljj) s "SIGHTING COEFFICIENT. DEFAULT r t. b30 

SUBROHTTNp tInPUT 6o 0 

common /Gi'drCm/ ABAR(20 ), ACL, AKPPIM, al, AMACHI ( 30 ) ,BBAR(20 ) .DtNRTO, 670 

* (TENGAm, Eos, EpSm,GAmmai(30), Ph 11(30), RFUS,SLUPE*(30),SUMPD2, o«0 

* TDENR T , IhMAX , "AVEL. »GHT f ( iO ) , XM 090 

COMMON /CmlOC/ ET A 1 ( 16) , mAXk., MAXP, NBEAM, NETa I , NR0I , NTHBC , NTBC , zoo 

* RB T ( 1 0) , ft TLF ( 20 ) , YYPxRC ( 1 0 , 3) , YYPT0C ( 1 0 , 3 ) 710 

C ROUTINE Tn REAO INPUI FOR LASER TURRET PHASF DISTORTION ANALYSIS, 720 

C - 0Y G, N. vANUERPL 4 ATS NOV,, 1976 730 

c n a v a l postgraouaTe school, munterfy, calif. 700 

C 7S0 

C TITLE. 7oO 

RFAD ( S , 7ft ) (TITLE( 1 ), isj ,20) 770 

IPNPUTsO 7»0 

IF ( IPhPU^ .EO.O) RR 1 Tp (b,l« 0 ) (TlTLE(I),Isi,20) 790 

C AERO-OPTICS. 800 

r EAO (S,8ij) AMACH, DENRTO, ToENRT, OENGAM, aaPRIM, ha V£L 010 

IF ( IPNPUt.E^.O) HRITE (6,150) AM aCH , DE NRT 0 , T DENR T , OENG AM , AKPR I M , H 820 

1 A vEL * 850 

C GEOMFTRY, 090 

c turret, 050 

Read (5,00) RFUS, 4 L, ThmAx, Acl, EPS 060 

IF ( lPNPUT.F fJ .0) "RITE (6.160) RFUS , Al , ThMAX , EPS , ACL 070 

THMAX=THMax/S7 .29578 8«0 

REA0(S,9 0) M A XK,MAXP,NXBC,NrHHC 890 

NXBC=NXHC;i 900 

NThBCsNTHbc* 1 910 

MAXK 1 sMAXif + 1 920 

MAXPisMAXd + ) 950 

IF ( IPNPUt . FO. 0 ) "RITE (6,170) MAXK 990 

READ ( S , 8 o ) (ABAR(l), lsl,MAXKl) 9bO 

AB AR ( 1 ) s l ’ 9o0 

IF ( 1PNPU} .EU.O) "RITE (6,180) ( A RA R ( I ) , I s 1 , M A XK 1 ) 970 

YYPXRC(1,))sO. 980 

YYPXBC( 1 ,?)=EPS 990 

YYPXOC( l,X)s200, 1000 
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IF (NXBC.fO.l) GO TO 20 1010 

IF (IPNPUj.fO.O) "RITE (6/100) 1020 

DO 10 I=2,hxHC 1030 

READ ( 5 / 8(i ) (YYPxBC(I,J),J=l,3) 1000 

10 CONTINUE 1050 

20 CONTINUE 1060 

IF (IPNPUt.eO.O) "RITE (6,110) ( ( Y X P XBC ( I , J ) , J = 1 , 3 ) , I = I , NX8C ) 1070 

IF ( iPNPIJt.EO.O) wrjTE (6,1Ro) MAXP 1080 

READ (5, 8n) (B8AW ( I ) , T = I , MAXPI ) 1090 

C IMPOSE BOiimOARY CONDITION R(0)=1. 1100 

BBAR(l) = r. 1110 

IF (IPNPUr.EO.O) WRITE (6,180) ( BR A R ( I ) , 1 1 1 , M A XP t ) 1120 

YYPTHCn, i)sO. 1130 

YYPTBC ( 1 , ?) iEPS I t 00 

YYPT6C ( 1 , X) = 200 . 1150 

IF (NTHBC'fO.I) go TO 00 1 1 eO 

IF ( IPnpUt .E«. 0) "RITE ( o , 120) 1170 

00 30 I=2,NTHRC 1 180 

READ ( 5 , 8o ) (YYPI6C(I,J),J=1,3) 1190 

30 COUTinUF 1200 

00 CONTINUE 1210 

IF (IPNPIJt.fO.O) write (6,130) ( ( Y YPT RC ( I , J ) , J = 1 , 3 ) , I = I , N THBC ) 1220 

c mirror cEntfR. 1230 

REaO (5, 8n ) EPSM,XM 1200 

IF ( IPNPUr. E'J.O) WRITE (6,200 ) XM.EPSM 1250 

C PHASE DISTORTION CALCULATION POINTS, 1260 

READ (S,9o) NE T a I , NR8 I 1270 

READ (5,8 0) (FTAI(1),1=1,NETAI) 1280 

IF ( IPNPUt. EU.O) "RITE (6,230) 1290 

IF ( IPNPUt. fG.O) WRITE (6,200) (ETAI(l),IsI,NETAl) 1300 

DO 50 1=1 .nETaI 1310 

50 ETAI ( I )=£taI (1)257.29578 1320 

READ (5,8(>) ( RR I ( I ) , 1 s 1 , nRB I ) 1330 

IF ( IPNPUr ,EU. 0) write (6,250 ) 1300 

IF c IPNPUT .E'J.O) WRITE (6,200) ( RB I ( I ) , I = 1 , N»B I ) 1350 

C BEAM ORIENTATIONS. 1360 

READ (5,9o) NREAM 1370 

IF (IPNPIJt.fO.O) WRITE (6,210) 1380 

DO 60 1=1, NflEAM 1390 

READ(5, 80) PHI 1 ( I ) , GAMMA I ( I ) , AMACHl ( I ) , "GHTI ( I ) 1000 

IF ( AMACHI f I) ,LT .0.001 ) AMACH I ( I ) saMACH 1010 

IF ( ARS ( "GmtT ( I)) .IT. 0 . 001 ) WGH11(T)=I. 1020 

IF ( IPNPUT ',£0.0) "Rl TE (6, 220)1, PH 1I(I),GAMMA1(I),AMACHI(I),WCHTI(I) IU30 

Phi 1 ( I )=P H II ( I) '57 .29578 looo 

GamMaI(1) = gamhaI(I)/57.295;8 1050 

60 CONTINUE 1 060 

HETURN 1070 

C 1 080 

70 Format ( 2d ao ) • 1090 

80 FORMAT (8FI0.2) 1500 



223 



SUBRqUTIMf TlNPUT 



SEPT. 77 



9 q FORM a T ( 8 1 j o 1 1510 

1 0 0 Format (/sx, 19HbuunDARy COndITIOns/5x, JHX/U. 6 X, 1Hy,ux, 7HY-PRIMt) 1 52 0 

110 Format (3,to.3) 1530 

120 Format ( /sx , l rhrounoary conoi tions/ 5 x, i ihthet a/Thmax, ax, jHy.ax, 7 hy isoo 
1 -RRImE) 1550 

130 FORMAT ( 5y , 3 F 0 , 3 ) ' 1560 

100 FORMAT ( Ihi , 0X,21 mTURRET ANALYSIS I NPUT / / 5 X , 5HT I T L E / 5 X , 20 AO ) 1570 

1 50 FORMAT ( / /<jX» 1 1 haERO-OPT ICS/5X / Johmach number. amaCh 1580 

1 s,F6.3>SX, 36MEXURNAL DENSITY RATION, DEnRTO = , F 6 . 3/5X , 36H I N 1590 

2TERNAL DENSITY RATIO, TDENRT s, Fb, 3/5X, 30 HPRESSIIRE-OENSI TY txP 1600 

iONENT, DE M GAM =, Fb. 3/5X , 36HPMASE DISTORTION CONSTANT, A*RRIM =,E 1610 

01 1 ,0/Sx, 3bHWAVELEN(iTH, « a V t L s.Ell.o) 1620 

160 FORMAT C//s</flMOLOMEtRY/5X,27HFUSELAGE RADIUS, RFUS =,F7.3/5x, 1630 

1 2 7 H T UPRE T hALF-I.EnGTpi, = , F 7 , 3/5X , 2 7h TURRET hAlF-AnGLE, THMax leoO 

2 z » F 7 , 3 « oh DtGREES/5X,27U TURRET HEIGHT FAClOR, EPS = , F 7 , 3/S X , 2 7 H 1650 

3TIJRRET ha, f-SPAC I NG, ACL =,F7.3) 1660 

170 format (//<;x,35HiuRRtT polynomial shape coeficients/sx, 2 ohx-direct io70 
1 I ON , order =, I5/5X, 1 IhCOEFiCiEnTS) 1680 * 

180 FORMAT (Oy,sEl3.5) 1890 

190 FORMAT (/qx,2oHlHETA. DIRECTION, ORDER = , 1 5/5 X , I 1 HCOEF I C I EN TS ) 1700 

200 FORMAT (//5X,R8mLUcATT 0N OF CENTER OF M I RROR/ 5 x , 6 hxm =,F7.3,5x,6 1710 

IHEPSM =,Fj.3) 1720 

210 FtlRM 4 T C//SX , 1 7HBEAM OR I EN t a T I OnS/5 X , 1 8hbE a m PHI GaMMa, OX, 1730 

* 12HHACH WFIGHT) 1700 

220 Format ( 18 2FH.2,2F8.3) 1750 

230 FORMAT (//SX,35mPHaSE DISTORTION CALCULATION PO I NTS/5 X , 6H ANGLES ) 1760 

290 FORMAT (5x,5F10.3) 1770 

250 FORMAT ( / =; x ,5HRADI I ) 1 7»0 

End 1790 
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S U 0 R 0 U T I M p TRAP2N SEPT. 77 

SUPPOU T I Np TRAP2N (IGOTO, A,H,N2, X,FX) 10 

C ROUTINE Tn PERFORM TRAPEZOIDAL RUlE INTEGRATION FOR F(X)2N, 20 

C BEGINING with F(X)N, 30 

BY G, N. vanOERPLAATS NOV., 1976 90 

naval postgraoua te school, monterey, calif. so 

INPUT 60 

igoto = Calculation parameter, initially call traP 2 n with 70 

Igoto = 0. ao 

a = LnwpR bound on integration, 90 

b = uppfR bound on integration. 100 

N2 = NhmpER OF INTERVALS USED in This SOLUTION. N2 = 1 110 

If integration IS JUST BEgINIng, OTHERWISE n2 = 2*N 120 

Of PREVIOUS SOLUTION. 130 

FX z FfXlN ON FORST CALL (IGOT(l = 0) AND F(X) ON SUBSEQUENT CALLS 190 

( TGO TO= U . ISO 

OUTPUT 160 

IGOTO = CALCULATION CONTROL. IF TGOTO.NE.o, CALCULATE F(X) AND 170 

Call again, if iGOTOsO ON RETURN, INTEGRATION IS COMPLETE 160 

x = X^vaLUE fur N£ w FUNCTION EVALUATION (IF IGOTO. NE.O) 190 

FX z F'fX)2N IF IG0T0 = 0. THIS IS FINAL SOLUTION. 200 

USAGE K is total number OF TRAPEZOIDAL SOLUTIONS DESJREO. 210 

00 20 I : t,K 220 

N2=2*»(I-i) 230 

IGOTO = 0 200 

10 CALL TRAPp ( ( I gOTC, A, B, n2, x,FX) 250 

IF(IGOTO.fQ.O) GO TO 20 260 

FX = F(X) 270 

GO To 10 ' 260 

20 CONTINUE 290 

SOLUTION A S COMPLETE, 300 

310 

IF (IGOTO. n 10,20,90 320 

C CONSTANT. 330 . 

10 H:(B-A)/F| oAT(N2) 390 

FN=0 . 350 

A i ; 1 , 3oO 

A2s|, 370 

IF (N2.GT’ t ) GO TO 20 380 

C SPECIAL C aSF , 1 INTERVAL. 390 

A 1 sH 900 

A2s.5 910 

X = A 920 

IGOTOsl 930 

RETURN 990 

c general c a sf » n 2 .ge.i 950 

20 FN1S.5.FX.A1 960 

I=-l 970 

30 1=1+2 960 

IF (I.GT.nj, GO TO 50 990 

XsA+FLOAT r l ) *H 500 
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I GOT 0 = 2 510 

RETURN 

<40 FN=Fn*FX 5i0 

GO TO iO 5«0 

50 Fn=A2»FN 550 

FX=Fn1»FN*h 5oO 

I GO T0 = 0 5 70 

RETURN 5B0 

End 590 
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subroutine yrtpob (xm, epsm, phi , gamma , rho,pb,eta» x, r, theta, y, z) io 

routine t 0 calculate coordinates, x,r,theta of a point on a beam. zo 

BY G. N. VANDERPLAATS NOV., t<?76 30 

naval postgraduate school, monterey, calif. ro 

INPUT. SO 

XM = v. LOCATION OF CENTER of mirror. bO 

EPSM = 7-LOCATION of CENTER OF mirror. 70 

Phi = iznUTH ANGLE MEASURED FROM POSITIVE X_A*lS, BO 

Gamma = fi.fVaTIOn angle measured from x-y plane, 9o 

RhO = DISTANCE alung beam, luo 

R3 r RADIAL OISTancE FROM CENTER OF BEAM, 110 

ETa = ANGULAR location measured from line in The X-y plane. 120 

OUTPUT . 130 

X = y-CXL INDRICAL and CARTISIAN COORDINATE, lao 

Y Z y-CARTISIAN COORDINATE. 150 

Z = 7-CARTISIaN COORDINATE. lbO 

R = RADIAL LOCATION TO POINT FROM X-aXiS, 170 

TH£Ta = CIRCUMFERENTIAL LOCATION OF POINT FROM Z-AXIS, 180 

note - all angles are in redians. iro 

200 

Constants'. 210 

SNP=SIN(Pmit 220 

CNP=cos(Pmi 2 jo 

sng=sin(Gamma ) zro 

CNG=COS(G»mmA) 250 

SNt=SIN(ETAl 260 

Cne=COS(Etai 270 

CARTISIAN COORDINATES, 2H0 

x = XM - o h D*COS(GAMma ) *C0S(PHI ) - RB.SIN(ETA) *SIN(PHI ) * 2R0 

Rfi*COS(E T t , .SIN (GAMMA) «COS(PHI ) J00 

X = XM-RHO*dnG*CNP-RB* ( SNE*SNP-CNE*SNG*CNP) 310 

Y = RHO*CDSfC,AMMA) *SIN(PhI ) - RB * S I N ( E T A ) * C OS ( PH I ) . J20 

RRtcosier^.siNfGAMMAj.siNcPHi) 330 

Y=RHO*CNG.SNP-RB*(SNE*CNP+CNE«SNG«SNP) 3R0 

Z = EPSM ; PHD*SIN(GAMMA) t fl 8 * C OS ( c T A ) * c 0 s ( G A M M A ) 350 

Z=EPSM+RHn*SNG+RB*CNE*CNG 3bO 

370 

POLAR COORDINATES, 3B0 

X = X. 390 

R = SORT (y**2+Z**2) ROC 

RrSOR T (Y**j+Z«*2) Rio 

C ThETa = AocTAMC-Y/Z) . R20 

C GUARD AGa tnS T ZFRO DIVIDE. 930 

IF (ARSfZ, .LT . 1 .OE-b ) Z = l.OE-b RRO 

YZ = ABS(V/7) R 5 0 

ThETa=ATA M( yZ) RbO 

C ANGLE GREaTFR THAN Pl/^. R 70 

IF (Z.LT.rt.) THETAsJ. 1415927-THETA RBO 

C negative ANGLE. 9R0 

IF (Y.GT.o.i THETAs-ThETa 500 
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RETURN 

End 



sio 

SdO 
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subroutine 7Ern(r,ri,r2,ti,T2,az,ai,a2,aj,a) 






10 




0 T MENS I ON A(10),Z(10) 






20 


c 


ROUTINE Tn CALCULATE OPTICAL PROPERTIES OF PhaSE 


distortion in 


30 


c 


Terms of 7fR n icke polynomials. 






ao 


c 


BY G. N, vaNDFRPLAaTS 


may, 


1977, 


50 


c 


naval postgraduate school, mgnterey, calif. 






oO 


c 


Phase DISTORTION IS ASSUMED OF Thf Form AZ + Al* 


R ♦ a 2 * T t 43*R*T 


70 


c 


«HE r E R = RADIUS and T = THETA in radians. 






80 


c — 


INPUT. 






90 


c 


R = BEAM R A nIiiS. 






100 


c 


«1, Tl = | owER LIMITS OF INTEGRATION. 






1 10 


c 


«2, T 2 s upoER LI M ITS OF INTEGRATION. 






120 


c 


az, ai, a p as = polynomial coefficients. 






130 


c 


a : VECTOR OF ZERNICO.E COEFFICIENTS. ON FIRST CALL TO 


ZERN a MUST 


l ao 


c 


BE ZERO. 






150 


c - - - 


- OUTPUT. 






1 60 


c 


A s UPDaTfo VECTUR OF ZERNICKE COEFFICIENTS. 






170 


c 








180 




00 20 1=1.0 






190 




GO TO (21 ,22,25, 20) , I 






200 


21 


Call ZINTfP.Hl ,Tl ,AZ,Al ,A2,AJ,Z) 






210 




SlGNsl . 






220 




GO TO 25 






230 


22 


CALL ZINT' f R,Rl,T2,AZ,Ai,A2,Ai,Z) 






2a0 




SlGNs-1 . 






250 




GO To 25 






260 


25 


CALL ZINTfR.R2,Tl,AZ,Ai,A2,AJ,Z) 






270 




SIGNs-l . 






280 




GO TO 25 






290 


2« 


CALL ZINT'tr,R2,T2,aZ,A1,a2,A3,Z) 






300 




signs] . 






310 


25 


CONTINUE 






320 




00 Jo J= 1 , 1 0 






330 


50 


A(J)sacJ)*siGn*Z(J) 






3ao 


20 


CONTINUE 






350 




RETURN 






360 




End 






370 






229 



o o o o o o 



SlJBRODTINp zInT 



SEPT. 77 



SUBROUTINf 7lNT(CARR,R, T hETA, AZ»A1,A2*A3,Z) 10 

DIMENSION ^(lo) 20 

ROUTINE To evaluate integral of Ze r nicke poltnomul TIMtS PHASE SO 

DISTORTIOki AT R ANy Th£Ta. uo 

BY G, N, vaMDeRPLAATS may, 1R77. 50 

naval postgraduate school, monterey, caLIF. oO 

70 

constants'. «o 

CR?=c*PR»rAPR no 

CR 3 = C R2 * C APR 100 

CRo=cRZ*ci?? no 

R?sR»R 120 

R3=R2*R 130 

Ri|rR2*R2 l a o 

RS=R*Ry ISO 

R6=»3*R3 loO 

T2=THETA*^hfTa 170 

STsS IN ( THpT A) I B 0 

ST2=ST»ST 190 

ST3=ST*ST? 200 

S2T=SIN(2' * tHf T A ) 210 

S3T = SIN(3%THEIa) 220 

CTrCOS(THFTA) 230 

CT2=CT*CT 2ao 

CT3=CT.CT? 250 

C2I=COS(2^ ,tH£TA ) 2b0 

C3T=COS( 3. .tmeTA) 270 

Pl=3.1415o ? 7 280 

SOP I = SQR I f p r ) 290 

Z( 1 )sR2.THETA,(,5*AZ+Al*R/3.*THETA.(.25*A2.Ai*R/6,))/(CAPR*SOPI) 300 

C TUT. 310 

Z(2)=2.*R3*(ST*(AZ/3,+.25*R»Al)+(CT+THErA*ST)*(A2/3,t,25»A3»R))/ 520 

* (CR2*S0P T ) 330 

Z(31=-2,«P3*((AZ/3,.,25*Al*R)*CT-(ST-THETA*cT)*(Ap/3,.,25»A3»R))/ 340 

* ( C H 2 *SQP t ) 550 

C FOCUS. 360 

Z(U)=3.a6 U ,olfe*R2*THETA* ( .25*(R2-CR?)*(AZA.5*A2*THETA)f 570 

* R* ( a 1 + .5. * 3* THE I A ) * l . 2 *r2-cRP7B . ) ) 7 ( SQPI »CR3 ) 380 

C ASTIGMATISM. 3 VO 

Z ( 5)=2,44o/imV 7»R4*( ,5*( ,25*AZf,2*Al»R) »S2T . , 5* ( ,25**2 + ,2»*3*R) * 4oO 

* (THETA*S?T*.25*CZT))/(S0PI»C»3) 410 

Z(6)=2,u4ouftV7*R4*(Sl2»(.?5*AZ+.2*Al»R)+(.25*A2+.2*A3*R)* 420 

* ( theta. St2-.S*ThETa+. 25*S2T) )/ (SOPI *CR3) 430 

C COMA, 440 

Blr,2*AZ.A1 .R/b. 450 

B2s,2*A?+i3*R/b, aoO 

Z(7)=2.82«u2 7 »R t 5*(Bl»(ST.(CT2.2.)/i..ST3)+n2.(3,.THf TA.S3T+C3T+ 470 

* 27 . .TheTa *S T*3. .cT-3b. .TH£TA.s T3-1 2. »cT*ST2) /36. )/ (SOPI *CR4 ) 480 

Z(«)=2.H2fl U 27I*R5*(Hl.(CT3-CT.(Sr2+2.)/3.).R2.(3.»rHElA.C3r-S3T- 490 

. 27,.ThETa.CT.3,»ST.36,*THETa«CT3-12,.ST»CT2)/36,)/(SOPI.CH4) 500 
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APPENDIX C 
DATA FORMS 



231 



COPES DATA 



DATA BLOCK A 

TITLE « FORMAT 

I 20A4 



DATA BLOCK B 



+ 


$ 


COMMENT 




NCALC 


NDV 


NSV 


N2VAR 


IPNPUT 


IPSENS 


IP2VAR 




FORMAT 


*Y 


















8110 



DATA BLOCK C - OMIT IF NDV = 0 



+ 


$ 


COMMENT 




IPRINT 


ITMAX 


ICNDIR 


NSCAL 


ITRM 


LINOBJ 


NACMX1 


NFDG 


FORMAT 


* 


















8110 



DATA BLOCK D - OMIT IF NDV = 0 



$ 


COMMENT 


FDCH 


FDCHM 


CT 


CTMIN 


CTL 


CTLMIN 


THETA 


PHI 


FORMAT 


















8F10 


DELFUN 


DAB FUN 




FORMAT 








2F10 



DATA BLOCK E ^ OMIT IF NDV = 0 



+ 


$ 


COMMENT 




NDVTOT 


IOBJ 


SGNOBJ 




FORMAT 


* 










2110, F10 



DATA BLOCK F - OMIT IF NDV = 0 



$ 


COMMENT 


VLB 


VTJB 


X 


SCAL 




FORMAT 












4F10 







































































































































































































































232 



COPES DATA CONT 



DATA BLOCK G - OMIT IF NDV = 0 



$ 


COMMENT 


NDSGN 


IDSGN 


AMULT 




FORMAT 










2110, F19 



















































































































































































































































DATA BLOCK H - OMIT IF NDV = 0 



$ 


COMMENT 


NCONS 




FORMAT 






no 



DATA BLOCK I - OMIT IF NDV = 0 OR NCONS = 0 



$ 


COMMENT 


ICON 


JCON 


ICON 




FORMAT 










3110 


$ 


COMMENT 


BL 


SCALl 


BU 


SCAL2 




FORMAT 












4F10 
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COPES DATA COOT 




DATA BLOCK J - OMIT IF NSV = 0 



$ 


COMMENT 


NSOBJ 




FORMAT 






no 


$ 


COMMENT 


NSN1 


NSN2 


NSN3 


NSN4 


NSN5 


NSN6 


NSN7 


NSN8 


FORMAT 


















8110 







































DATA BLOCK K - OMIT IF NSV = 0 



$ 


COMMENT 


ISENS 


NSENS 




FORMAT 








2110 


$ 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 


FORMAT 


















8F10 







































$ 


COMMENT 


ISENS 


NSENS 




FORMAT 








2110 ' 


$ 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 ■ 


FORMAT 


















8F10 
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COPES DATA - CO NT 



DATA BLOCK K - CONT. 



s 


COMMENT 


I SENS 


NSENS 




FORMAT 








2110 


S 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 . 


FORMAT 


















8F10 







































$ 


COMMENT 


ISENS 


NSENS 




FORMAT 








2110 


$ 


COMMENT 


SNS1 


SNS2 


SNS3 


SNS4 


SNS5 


SNS6 


SNS7 


SNS8 


FORMAT 


















8F10 


































* 





DATA BLOCK L - OMIT IF N2VAR = 0 





$ 


COMMENT 




N2VX 


M2VX 


N2VY 


M2VY 




FORMAT 


* 












4110 



+ 

* 



S 


COMMENT 


NZ1 


NZ2 


NZ3 


NZ4 


NZ5 


NZ6 


NZ7 


NZ8 


FORMAT 


















8110 







































S 


COMMENT 


XI 


X2 


X3 


X4 


X5 


X6 


X7 


X8 


FORMAT 


















8F10 







































+ 

* 



DATA BLOCK 0 - OMIT IF N2VAR = 0 



s 




COMMENT 


Y1 


Y2 


Y3 


Y4 


Y5 


Y6 


Y7 


Y8 


FORMAT 


















8F10 







































DATA BL OCK P 
H?ND 



END 



FORMAT 



3A1 
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LASER TURRET ANALYSIS DATA 



DATA BLOCK A 



TITLE 


FORMAT 




20A4 



DATA BLOCK B 



AMACH 


DENRTO 


TDENRT 


DENGAM 


AKPRIM I 


NAVEL 


1 format' 














1 6F10 



DATA BLOCK C 



RFUS 


AL 


THMAX 


ACL 


EPS 




FORMAT 














5F10 



DATA BLOCK D 



MAXK 


MAXP 


NXBC 


NTHBC 




FORMAT 












4110 



DATA BLOCK E 



ABARO 


A3AR1 


ABAR2 


ABAR3 


A3AR4 


A3AR5 


ABAR6 


ABAR7 | FORMAT 


















8F10 





















DATA BLOCK F 



X 


Y3C 


YPBC 




FORMAT 










3F10 






































i 


--- 








1 


1 



DATA BLOCK G 



3BAR0 


BBAR 1 


BBAR2 


BBAR3 


3BAR4 


BBAR5 


BBAR6 


BBAR7 


FORMAT 


















8F10 





















DATA BLOCK H 



THETA 


Y3C 


YPBC 




FORMAT 










3F10 
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LASER TURRET ANALYSIS DATA - CONT 



DATA BLOCK I 



EPSM 


XM 




FORMAT 








2F10 



DATA BLOCK J 



NETAI 


NRBI 




FORMAT 








2110 



DATA BLOCK K 



ETA1 


ETA2 


ETA3 


ETA4 


ETA5 


ETA6 


ETA 7 


ETA8 


FORMAT 


















8F10 





















DATA BLOCK L 



RBI 


RB2 


RB3 


RB4 


RB5 


RB6 


RB7 


RB8 


FORMAT 


















8F10 



DATA BLOCK M 



NBEAM 




FORMAT 






110 



DATA BLOCK N 



PHI 


GAMMA 


AMACHI 


WGHT 




FORMAT 












4F10 
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